Let's back off. This code worked on windows 7, with strawberry perl 5.12.1 and Tk 804.029.
It worked in the sense that there were two (not one) X buttons - one for the dialog and one for the main window, and both responded to click event.
I think you need to tell more about your environment, so someone with a similar onfiguration can try for you.
In reply to Re: tk close window
by PeterPeiGuo
in thread tk close window
by fanticla
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |