I think you are looking for the -textvariable option, and give it a reference to a scalar:
#!/usr/bin/perl -w use strict; use Tk; my $foo = 500; my $mw = MainWindow->new; my $tes = $mw->Label(-textvariable => \$foo); $tes->pack; $mw->repeat(3000,sub{$foo++}); MainLoop(); __END__
In reply to Re: Real simple Tk label
by danger
in thread Real simple Tk label
by kb2yht
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |