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

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 422-6466

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

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;

I do this too ... but it's close the window , and not all the script ...
I can see the process yet in task manager (under NT4) 

off course , i hide the dos box so , i need kill the process
----- Original Message ----- 
From: "Aldo Calpini" <da...@pe...>
To: "Nahum Marc" <per...@li...>
Sent: Wednesday, February 14, 2001 12:01 PM
Subject: Re: [perl-win32-gui-users] The cancel cross (upper right) in GUI

> 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;
> 
> 
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 

Nahum Marc wrote:
> I do this too ... but it's close the window , and not all the
> script ... I can see the process yet in task manager (under NT4)
>
> off course , i hide the dos box so , i need kill the process

there must be some error in your script. can you post a piece of
your code that includes at least the window creation, the
Win32::GUI::Dialog() call and the Terminate event?

also, please report which version of Win32::GUI and Perl and
operating system you're using.

cheers,
Aldo

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

Win32::GUI version 0.0.502
perl version Binary build 522
OS : Windows NT4 wks , SP5

Sincerly,

Marc Nahum

----- Original Message ----- 
From: "Aldo Calpini" <da...@pe...>
To: "Nahum Marc" <per...@li...>
Sent: Wednesday, February 14, 2001 2:57 PM
Subject: Re: [perl-win32-gui-users] The cancel cross (upper right) in GUI

> Nahum Marc wrote:
> > I do this too ... but it's close the window , and not all the
> > script ... I can see the process yet in task manager (under NT4)
> >
> > off course , i hide the dos box so , i need kill the process
> 
> there must be some error in your script. can you post a piece of
> your code that includes at least the window creation, the
> Win32::GUI::Dialog() call and the Terminate event?
> 
> also, please report which version of Win32::GUI and Perl and
> operating system you're using.
> 
> 
> cheers,
> Aldo
> 
> __END__
> $_=q,just perl,,s, , another ,,s,$, hacker,,print;
> 
> 
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 

Nahum Marc wrote:
> Win32::GUI version 0.0.502
> perl version Binary build 522
> OS : Windows NT4 wks , SP5

c'est tres simple :-)
your window is called 'Win' (-name => "Win"), but your event
is called Window_Terminate. should be Win_Terminate instead!

BTW, you have an horrible use of goto in your script. I
haven't investigated much, but I've seen a lot of possible
problems here and there (for example, returning to 'debut'
will create another copy of your windows, which is something
you should not do!).

cheers,
Aldo

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