(no subject)

Mon, 21 Jan 2002 08:06:08 -0800

Hi All,
 
    Please help me! Why doesn't the counter label count in real time in my Tcl/tk Perl script, though I configure the '$counter' label at all changes of  the "$i" variable.
 
Thanks: R. Beci   
 
#!/usr/bin/perl -w
 
use strict;
use Tk;
$|=1;
 
# Create main window
my $main = MainWindow->new;
 
# Add a Label and a Button to main window
$main->Button(
 -text => 'Start',
 -command => sub {progress()}
 )->pack;
 
my $counter=$main->Label(
 -text=>"0"
 )->pack();
 
# Spin the message loop
MainLoop;
 
sub progress {
 for my $i (0..15) {
  sleep(1);
  $counter->configure(-text=>$i);
 }
}

Reply via email to