Opened by Brenner at 2009-05-11 15:24
User since
2009-01-13
87 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2009-01-13
87 Artikel
BenutzerIn
Ich teste heute gerade das erste Mal mit PerlTK rum. Inzwischen habe ich aber ein kleines Problem. Ich bekomme es nicht hin das, wenn ein Button gedrückt wird, ein spezifischer Befehl (Kommando/Subroutineaufruf) ausgeführt wird und sich das Fenster mit den Buttons schließt.
Habs schon Mal mit $main->destroy probiert, hat aber nicht wirklich geklappt.
Habs schon Mal mit $main->destroy probiert, hat aber nicht wirklich geklappt.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
BEGIN { push(@INC,"<modulpfad>"); }
use strict;
use warnings;
use Tk;
my $main = new MainWindow;
my $label = $main->Label(-text => 'Checker:');
my $button = $main->Button(
'-text' => 'Start',
'-justify' => "left",
'-height' => 3 , '-width' => 10,
'-relief' => "raised",
'-command' => sub {require modules::check; check::SELECT();},
);
my $button2 = $main->Button(
'-text' => 'Quit',
'-relief' => "groove",
'-command' => sub { exit },
);
$_= localtime(time);
my $button3 = $main->Button(
-textvariable => \$_,
'-relief' => "flat",
-command => sub { $_ = localtime(time) },
);