Re^2: Basic questions of Tk programming

[tybalt89]

Re^3: PERL Tk label(-textvariable))

[GrandFather]

BAH. Either I didn't super search back far enough or SS dropped the ball.

A pity OP didn't read as far as Annonymonk's reply.

[Don Coyote]

ok this is interesting though, waitVisibility call hack

#!/usr/bin/perl

use strict;
use warnings;
use Tk;

my $number = 1;
my $mw = MainWindow->new;

$mw->waitVisibility;

my $label = $mw->Label(-textvariable =>\$number)->pack();

$mw->repeat(1000, [sub{ ${$_[0]}++; $label->update; }, \ $number] );

$mw->waitVisibility;

displays an incrementing counter

[choroba]

> displays an incrementing counter

When you append a MainLoop();, yes, it does.