Tk Fenster per update vergrössern? Effekt - #133783 (Graphische Oberflächen)

#Kein Kommentar

2010-02-28 14:07

User since
2007-06-09
575 Artikel
HausmeisterIn
[default_avatar]

@kalle: mit der update-funktion funktioniert es bei mir auch nicht.
man sollte lieber ein after oder eine repeat-funktion benutzen:

Code: (dl )

#!/usr/bin/perl
use strict;
use Tk;

my $height = 100;
my $width = 400;

my $mw = MainWindow->new(-title=>'Tk Test');
$mw->configure(-width=>$width, -height=>$height);

$mw->repeat(50, sub{
   $width += 5;
   $height += 5;
   $mw->configure(-width=>$width, -height=>$height);
});

MainLoop;

Gerade weil wir alle in einem Boot sitzen, sollten wir froh sein, dass nicht alle auf unserer Seite sind