Beefy Boxes and Bandwidth Generously Provided by pair Networks Frank
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Re: Perl/Tk window contents disappear when obscured then revealed

by BrowserUk (Pope)
on Jan 21, 2013 at 16:50 UTC ( #1014496=note: print w/ replies, xml ) Need Help??


in reply to Perl/Tk window contents disappear when obscured then revealed

This may be close to what you are trying to do:

use strict; use warnings; use Tk; my $mw = MainWindow -> new; my $m = $mw -> Message (-text => "testing, one, two, three...") -> pac +k; my $n = 0; $mw->repeat( 1000, sub{ $mw->destroy if ++$n == 10; print "$n\n"; } ); MainLoop; print "Done\n"; __END__ C:\test>\perl32\bin\perl junk91.pl 1 2 3 4 5 6 7 8 9 10 Done

With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.


Comment on Re: Perl/Tk window contents disappear when obscured then revealed
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1014496]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (6)
As of 2014-04-17 08:34 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (441 votes), past polls