Opened by #Kein Kommentar at 2007-11-15 19:00
User since
2007-06-09
575 Artikel
HausmeisterIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2007-06-09
575 Artikel
HausmeisterIn
komisch, es funktioniert definitiv nicht und die doku von widget kenn ich inzwischen auswendig :)
mein code:
bei mir kommt da anstelle des bildes der text "(image)".
ist das bei euch auch so?
\\edit: also mit dem menubutton funktioniert's, ich brauch aber ein rechtsklickmenü :(
mein code:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
use warnings;
use strict;
use Tk;
use Tk::Photo;
my $mw = MainWindow->new;
my $popup_menu = $mw-> Menu (-type => 'menubar');
my $logo = $mw-> Photo (-file => "D:/pfad/icon.bmp");
$popup_menu-> command (-image => $logo, -command => sub {print "image";});
$popup_menu-> command (-label => "blabla", -command => sub {print "label";});
$popup_menu-> Popup (-popover => 'cursor', -overanchor => 's', -popanchor => 'nw');
MainLoop;
bei mir kommt da anstelle des bildes der text "(image)".
ist das bei euch auch so?
\\edit: also mit dem menubutton funktioniert's, ich brauch aber ein rechtsklickmenü :(
Gerade weil wir alle in einem Boot sitzen, sollten wir froh sein, dass nicht alle auf unserer Seite sind