Opened by alexus-777 at 2004-04-21 23:11
User since
2003-08-11
409 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-11
409 Artikel
BenutzerIn
Folgender Code hat ein Kontextmenu in einem Mainwindow
und gibt beim drücken von 'Test print' in der Dosbox etwas aus....sollte für den Anfang reichen :D
und gibt beim drücken von 'Test print' in der Dosbox etwas aus....sollte für den Anfang reichen :D
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
use Tk;
use strict;
my $mw = MainWindow->new;
my $popup = $mw->Menu(-tearoff => 0);
$popup->command(-label => 'Test print', -command => sub {
print "test\n";
$popup->Unpost;
});
$mw->bind('<ButtonPress-3>', sub {
$popup->Popup(-popover => 'cursor', -popanchor => 'sw');
});
MainLoop;
Kaum macht man es richtig - schon funktioniert es!