tk menu icons slow

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Dear Monks

I'm trying to understand if the folowing is a general issue with the TK Menu, or just a problem I am experiencing. I have a menu with icons: when opening a menu by clicking upon its name, the menu opens fast, but if I move from an opend menu to the next one, just moving the mouse from the first to the second menu, the second menu is displayed quite slowing, building an impage after the other (from the top to the bottom). Here is the script (images must be of course saved locally)

    #!perl
    use strict;
    use warnings;
    use utf8;
    use Tk;
    use Tk::Menu;
    use Tk::Photo;
    use Tk::PNG;
    my $mw = Tk::MainWindow->new();
    my $menuitems = [
        [Cascade => "~File",
            -menuitems => [
                [Button => "~Neu",
                 -command => \&new,
                 -image => $mw->Photo(-file => '1.png'),
                 -compound => 'left',
                ],
                [Separator => ""],
                [Button => "~Hilfe",
                 -command => \&open,
                 -image => $mw->Photo(-file => '2.png'),
                 -compound => 'left',
                ],
                [Button => "~Schließen",
                 -command => sub{ exit(0); },
                 -image => $mw->Photo(-file => '3.png'),
                 -compound => 'left',
                ],
            ],
        ],
        [Cascade => "~Options",
            -menuitems => [
                [Button => "~Neu",
                 -command => \&new,
                 -image => $mw->Photo(-file => '1.png'),
                 -compound => 'left',
                ],
                [Separator => ""],
                [Button => "~Hilfe",
                 -command => \&open,
                 -image => $mw->Photo(-file => '2.png'),
                 -compound => 'left',
                ],
                [Button => "~Schließen",
                 -command => sub{ exit(0); },
                 -image => $mw->Photo(-file => '3.png'),
                 -compound => 'left',
                ],
            ],
        ],
    ];
         
    my $menu = $mw->Menu(-menuitems => $menuitems);
    $mw->configure(-menu => $menu);
    $mw->MainLoop();
[download]

Any idea?

Comment on tk menu icons slow Download Code

Replies are listed 'Best First'.
Re: tk menu icons slow by SuicideJunkie (Vicar) on Nov 19, 2015 at 20:47 UTC
I'm not seeing any slowdown on my desktop. I've got a simplified classic scheme however. Perhaps try looking into desktop effects and theme features like menu animations. Toggle any features off and see if one of them causes it. PS: Oh, it might also be something to do with the individual images. Presumably the two actual menus aren't both using the same three images, and they definitely aren't using the random image I grabbed for the task. PPS: You can embed an image in your source, for example: `#Embedding GIF bytes: my $icon = pack('C*' ,71,73,70,56,57,97,64,...(Many more bytes)...,0,5 +9); my $img = Tkx::image_create_photo(-data => $icon); $mw->g_wm_iconphoto($img);` [download]	[reply] [d/l]
Re: tk menu icons slow by Anonymous Monk on Nov 20, 2015 at 00:49 UTC
Any idea? What version? What kind of files? I don't see any slowdown on windows using Tk 804.030 and these files i just pbrushed `$ file 1.png 2.png 3.png 1.png; PC bitmap, Windows 3.x format, 32 x 32 x 24 2.png; PC bitmap, Windows 3.x format, 32 x 32 x 24 3.png; PC bitmap, Windows 3.x format, 32 x 32 x 24` [download]	[reply] [d/l]