Textaktualisierung über Widget-Grenzen - #128366 (Graphische Oberflächen)

peri

2009-11-20 12:57

User since
2009-02-06
12 Artikel
BenutzerIn

user image

Hi all,
ich möchte über die Callback-Fkt eines Buttons eine Funktion ausführen, die diverse Jobs erledigt, die etwas Zeit in Anspruch nehmen. Um den interessierten Benutzer zwischendurch mal zu sagen, was da gerade abgeht, möchte ich ein Textfeld (Label) immer mal wieder aktualisieren.
Mein Problem ist, dass dies erst am Ende der Callback-Fkt erfolgt. Wie löst man so was?
Mein Code:

Code (perl): (dl )

use strict;
use Tk;

my $mw = MainWindow->new();
my $button = $mw->Button(-text        => "do it",
                         -command     => \&callback  );
my $var = "Waiting ...";
my $lab = $mw->Label(-textvariable   => \$var);
$lab->pack();
$button->pack();

MainLoop;

sub callback {
   $var = "INFO: step 1, please wait ...\n";
   $lab->configure(-textvariable => \$var);
sleep 2;
   $var = "INFO: step 2, please wait ...\n";
   $lab->configure(-textvariable => \$var);
sleep 2;
}