Thread Tk::ProgressBar (27 answers)
Opened by renee at 2005-09-28 15:40

Spieler
 2008-05-12 14:18
#109603 #109603
User since
2007-09-24
70 Artikel
BenutzerIn
[default_avatar]
Hallo,

das ist ja seltsam, also das folgende erzeugt bei mir auf Button-click für vier Sekunden einen watch-cursor (mit AS 5.8.8 / AS Tk und auch mit Strawberry und aktuellem Tk):
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
use strict;
use warnings;
use Tk;

my $mw = tkinit ();
$mw->Button(-text => 'watch',
-command => sub{$mw->configure(-cursor => 'watch');
$mw->update;
sleep 4;
$mw->configure(-cursor => '');
}
)->pack;

MainLoop;


Grüße, Christoph

View full thread Tk::ProgressBar