Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

Re: Perl/TK Main Window Destroy

by converter (Priest)
on Jul 17, 2003 at 13:56 UTC ( #275216=note: print w/replies, xml ) Need Help??

in reply to Perl/TK Main Window Destroy

Tk is an event-driven GUI toolkit, and provides numerous ways to hook into the event loop. You might want to use the after method (documented in the Tk::after man page). Example:

#!/usr/bin/perl use Tk; $timeout = 8000; $m = tkinit; # prevent pack() sizing the Toplevel down so # that we can still reach the controls $m->packPropagate(0); $m->Label( -text =>'hi', )->pack; $m->Button( -text=>'Ok', -command => sub { $m->destroy; }, )->pack; # invoke a callback after $timeout msecs $after = $m->after( $timeout, [$m, 'destroy'], ); MainLoop;


Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://275216]
[stevieb]: I have got ready everything in a stable manner to go forward with a full-blown "Raspberry Pi with Perl" series, and at the same time "Automated testing locally for everything" series. A year it took. A year I've been waiting to do this.

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (6)
As of 2017-06-29 01:35 GMT
Find Nodes?
    Voting Booth?
    How many monitors do you use while coding?

    Results (653 votes). Check out past polls.