Dear monks

Anyone with the following problem? I designed a menu with Tk::Menu adding an icon to each menu entry. The problem is that the menu is now very slow. If I clic on a menu entry, the dropdown list containing all menu entries (with icons) shows up very quickly. But if I now move to cursor the next menu item and let the widget hide the dropdown list and showing the new one, well it gets very very slow, showing a entry after the other (instead of the whole dropdown window) at a very slow peace. This is the standard code I use (Perl 5.14, Windows).

my $frame_GUI = $mw->toplevel;
my $menubar = $frame_GUI->Menu(-type => 'menubar');

my $file= $menubar->cascade(-label => '~File', -tearoff => 0);
$file1= $file->command(-label => "Open", -command => sub{Open()}, -com
+pound => 'left');
$file1->configure (-image => $mw->Photo(-file => 'files\images\setup24
+.png'));
[download]