Re: Perl/TK Main Window Destroy


Just another Perl shrine
	PerlMonks

Re: Perl/TK Main Window Destroy

by converter (Priest)

on Jul 17, 2003 at 13:56 UTC ( [id://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;
[download]

conv