Re: [perl-win32-gui-users] The cancel cross (upper right) in GUI

[<se...@la...>]

On 14 Feb 2001, at 11:20, Nahum Marc wrote:

> How to manage the the cancel cross (upper right) in GUI to do an exit
> ? = , not a window exit , but a script exit ...

I think I found your problem:  When Win32::GUI::Dialog() returns -1, 
control returns to the script.  After that, you have a bunch of subs 
and then your 'suite' section.  One of the commands in 'suite' is 
'goto debut', so it jumps back up there, and runs through that part 
of the script again.  Place an 'exit' after your 
Win32::GUI::Dialog(), and the script should terminate before getting 
to 'suite'.