Opened by pktm at 2005-01-16 17:58
User since
2003-11-28
3645 Artikel
ModeratorIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-11-28
3645 Artikel
ModeratorIn
Hier ist ein funktionierendes Beispiel. Die Verwendung von sleep() ist in einem Tk-Programm natuerlich schlechtester Stil und habe ich nur aus Faulheit gemacht:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
use Tk;
$mw=tkinit;
$l=$mw->Label(-text => "Hello world!")->pack;
$mw->update; # Groesse des Fensters ist jetzt festgelegt
sleep 2;
$mw->packPropagate(0);
$l->configure(-text => "Hello");
$mw->update;
sleep 2;
$l->configure(-text => "Das ist ein langer Text");
MainLoop;