Come for the quick hacks, stay for the epiphanies. | |
PerlMonks |
Re: Tk bind questionby integral (Hermit) |
on Feb 22, 2003 at 07:48 UTC ( [id://237699]=note: print w/replies, xml ) | Need Help?? |
The problem is caused by the fact that you are binding <Key-Escape> to sub { exit }. If you lookup exit in perlfunc, you find it performs the syscall to shutdown your whole program. What you need instead is to have a closure on $x which call's the relevant function to destroy the MainWindow.
In Section
Seekers of Perl Wisdom
|
|