Tk: Wie mache ich ein automatisches Window Update ? - #160688 (Graphische Oberflächen)

GUIfreund

2012-08-07 13:26

User since
2011-08-08
559 Artikel
BenutzerIn
[default_avatar]

2012-08-07T08:47:12 Raubtier
perldoc Tk::after
$widget->repeat(ms,callback)

An Flat75:
Dabei ist callback eine Referenz auf die Sub, welche den alten Balken löscht, die Dateien zählt und einen neuen Balken zeichnet. Etwa so:

Code (perl): (dl )

$window->repeat(5000, \&showcount);
.......
sub showcount {
    $balk  and  $c1->delete($balk);
    my $jobs01 = ...;
    chomp ($jobs01);
    $balk = $c1->createLine(88, 65, $jobs01+88, 65,
            -width => '10', -fill => 'green');
    return;
}

(nicht getestet). Dabei würde ich $balk erst mal vor sub showcount deklarieren, damit du dir keine Gedanken darum machen musst, wie du im Callback darauf zugreifen kannst. Die Übergabe von Parametern an ein Callback kannst du dir als Übungsaufgabe aufheben.

Randbemerkung: Der übliche Name für das MainWindow ist $mw.

Gruß
GUIfreund