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

[Aldo C. <da...@pe...>]

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 ...

pick a sample script, anyone will do, from the samples directory
and study it.

<HINT>
supposing your window is named Window, add this line to your
script:
    sub Window_Terminate { -1 }
</HINT>
    

cheers,
Aldo

__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;