(no subject)

roboz Mon, 21 Jan 2002 08:07:23 -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);
}
}

(no subject)

Reply via email to