in reply to Re: Perl/Tk window contents disappear when obscured then revealed
in thread Perl/Tk window contents disappear when obscured then revealed
In fact, $m->update works as entering the main loop. And even entering the main loop does not magically remove any blocking:
#!/usr/bin/perl use warnings; use strict; use Tk; my $mw = MainWindow -> new; my $m = $mw -> Message (-text => "testing, one, two, three...") -> pa +ck; $mw->Button(-text => 'Go', -command => \&fire)->pack; MainLoop(); sub fire { for my $n (1 .. 10) { print "$n\n"; sleep 1; } $m -> destroy; print "Done\n"; }
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^3: Perl/Tk window contents disappear when obscured then revealed
by BrowserUk (Patriarch) on Jan 21, 2013 at 16:31 UTC | |
Re^3: Perl/Tk window contents disappear when obscured then revealed
by Another Ed (Sexton) on Jan 22, 2013 at 14:03 UTC | |
by choroba (Cardinal) on Jan 22, 2013 at 14:27 UTC |
In Section
Seekers of Perl Wisdom