Leser: 21
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) },
);
2009-05-11T14:40:48 Brennerzu2)
Ohne Anpassungen und vorallem der fehlenden Module wird es bei dir auch nicht laufen. Bei mir gehts wunderbar.
QuoteOhne Anpassungen und vorallem der fehlenden Module wird es bei dir auch nicht laufen. Bei mir gehts wunderbar.
1 2 3 4 5 6 7 8
use strict; use warnings; use Tk; my $mw = MainWindow->new(); $mw->Button(-text => 'Fenster schließen', -command => sub{$mw->destroy();})->pack(); Tk::MainLoop();
'-command' => sub{BUTTON1() && $main->destroy();},
2009-05-11T14:11:01 #Kein Kommentar[*] du solltest der $_ variablen keinen wert zuschreiben, ich weiß nichtmal, ob das überhaupt geht