Opened by pq at 2004-03-03 10:58
User since
2003-11-28
3645 Artikel
ModeratorIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-11-28
3645 Artikel
ModeratorIn
Nicht notwendig:
(PS: Warum werden Tabulatoren eigentlich nicht innerhalb von CODE-Tags aufgeloest?)
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
use Tk;
$mw=tkinit;
$mw->Button(-text => "Doit!",
-command => sub {
$t = $mw->Toplevel;
$t->Button(-text => "Hello!", -command => sub { die })->pack;
$t->update;
$t->Busy(-recurse => 1, -cursor => 'watch');
$t->after(2000);
$t->destroy;
})->pack;
MainLoop;