[perl-win32-gui-users] Terminating window

2001-06-27 Thread Louis Bohm
Help please, I am trying get this program to completely terminate when I click on the X in the top right hand corner but it is not working. I have played around with a few different ways to use peekmessage and doevents with no luck. Can some one help me. I do not see anything in the archive

Re: [perl-win32-gui-users] Terminating window

2001-06-27 Thread Johan Lindstrom
Louis wrote: $W = new Win32::GUI::Window( -title=> "Win32::GUI::Louis Test", -left => 100, -top => 100, -width=> 200, -height => 150, -font => $F, -name => "Window", ); Note the -name. sub W_Terminate {-1;} Note the name. You use the n

Re: [perl-win32-gui-users] Terminating window

2001-06-27 Thread Andrew Kincaid
When you click the X, you send a terminate to the "window" loop but your for loop is still going since it doesn't know about the window being terminated. I don't know if this is the best solution, but you could add: exit if !$W->IsEnabled(); just before the sleep (2) command. Therefore, when

Re: [perl-win32-gui-users] Terminating window

2001-06-27 Thread Andrew Kincaid
Oppss, typo on the "last" example. Forgot the !. Should read: last if !$W->IsEnabled(); Andrew >>> [EMAIL PROTECTED] 06/27/01 09:02AM >>> When you click the X, you send a terminate to the "window" loop but your for loop is still going since it doesn't know about the window being terminated.

Re: [perl-win32-gui-users] Terminating window

2001-06-27 Thread Louis Bohm
Thank you all. I found I had to add the following before the sleep to terminate the loop: exit(0) if !$W->IsEnabled(); And change my terminate sub to the following: sub Window_Terminate {-1;print "";} For some odd reason if I do not do a print the program will not terminate. Anyone

Re: [perl-win32-gui-users] Terminating window

2001-06-27 Thread Johan Lindstrom
Lous wrote: And change my terminate sub to the following: sub Window_Terminate {-1;print "";} For some odd reason if I do not do a print the program will not terminate. Anyone have any ideas why??? Just a note: you don't return -1 anymore, you return true, since that's what print re

Re: [perl-win32-gui-users] Terminating window

2001-06-27 Thread Andrew Kincaid
You can use either: sub W_Terminate {-1;} or sub Window_Terminate {1;} I admit I don't totally understand this since the documentation for _Terminate() says: Sent when the window is closed. The event should return -1 to terminate the interaction and return control to the perl script

[perl-win32-gui-users] Rebar

2001-06-27 Thread Forhan, Michael
I have been looking for the window elements that are mobile in a window (like the toolbars in IE, and MS Office Products), and have figured from the description that what I want is a 'Rebar'. I've been having a tough time getting this item to work, and was hoping that someone could post an example,

[perl-win32-gui-users] Output

2001-06-27 Thread daryll . elston
Is it possible to redirect the output from a DOS box to RichEdit control or something similar, I cannot seem to find any doc on this. Regards The information in this e-mail and any attachments is confidential and may be legally privileged. It is intended solely for the addressee or addressees.

RE: [perl-win32-gui-users] Rebar

2001-06-27 Thread Forhan, Michael
Thank you for sending me the webpage, unfortunately it hasn't been much help to me (I haven't been able to display the bar, or anything on it). I originally was using: http://velocity.activestate.com/code/cpan/w/wi/Win32-GUI.html to look up information for Win32::GUI, but I'm really looking for an

Re: [perl-win32-gui-users] Rebar

2001-06-27 Thread Jeremy Blonde
Here's what I've done. I'm not sure that this is the *correct* way of creating the rebar but it seems to work for me. I copied it from the example code. It does use the -style flag but I'm not sure how to do it without setting that manually. Jeremy Blonde Win32::GUI::Rebar->new( $Window,