Opened by pktm at 2008-07-26 20:00
User since
2008-01-27
367 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2008-01-27
367 Artikel
BenutzerIn
Da musst du mit Tags arbeiten:
Wobei ich mir gerade nicht sicher bin ob die beiden Koordinaten wirklich die beiden ersten Parameter sind, die dem callback mitgegeben werden.
MfG
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
my $e = $canvas->createRectangel(
10, 10,
20, 20,
-fill => 'red',
-outline => 'white',
-tags => ['rotes rechteck'],
);
$canvas->bind(
'rotes rechteck',
'<B3>',
[
sub {
my $menu = 'erstelle Tk::Menu mit zusätzlichen Infos';
$menu->post( $_[0], $_[1] );
},
Tk::Ev('X'),
Tk::Ev('Y'),
],
);
Wobei ich mir gerade nicht sicher bin ob die beiden Koordinaten wirklich die beiden ersten Parameter sind, die dem callback mitgegeben werden.
MfG
perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'