Re: [perl-win32-gui-users] Help with quitting

2001-07-02 Thread Louis Bohm
Did not help me... Darn it... Louis At 04:11 PM 7/2/2001 +0200, Johan Lindstrom wrote: Louis wrote: It works but still gives an error when I exit using the exe version. Maybe I should give up on the exit thing and let people click on the windows X to exit. Try not calling exit(0). Long sho

Re: [perl-win32-gui-users] Help with quitting

2001-07-02 Thread Louis Bohm
It works but still gives an error when I exit using the exe version. Maybe I should give up on the exit thing and let people click on the windows X to exit. Louis At 03:41 PM 7/2/2001 +0200, Johan Lindstrom wrote: Louis wrote: So are you saying something like this??? -snip- More like: my

Re: [perl-win32-gui-users] Help with quitting

2001-07-02 Thread Louis Bohm
So are you saying something like this??? $close=1; while (1) { some code... Win32::GUI::DoEvents() while Win32::GUI::PeekMessage(0,0,0); exit(0) if !$W->IsEnabled(); exit(0) if $W->Enable($close); } exit(0); sub Exit_Click {$close=0;} After I build the exe using perl2exe and click on ex

[perl-win32-gui-users] Help with quitting

2001-07-02 Thread Louis Bohm
I have written a nifty gui that I really like using the win32 gui module. I really have to thank the person(S) who put this all together. On to my question... I would like to design a menu containing an exit routine but it is not working. Currently I have this as my program loop while (1)

SOLVED Re: [perl-win32-gui-users] Strange flickering when updating window

2001-06-28 Thread Louis Bohm
Don't I feel stupid... I stumbled upon the solution to both questions... I needed to move my textfields outside of the while loop. Then I could use selectall and replacesel to update the fields. Now it looks good. Louis At 07:03 AM 6/28/2001 -0400, you wrote: I am running the attached code

[perl-win32-gui-users] Strange flickering when updating window

2001-06-28 Thread Louis Bohm
I am running the attached code on my win2k machine and I am seeing two strange things. 1. When the window updates the Textfields flicker and the data in them flicker. Is there anyway to get rid of that??? 2. When I update the numbers in the Textfields I have noticed that windows keeps a memor

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

[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] Updating a window.

2001-06-26 Thread Louis Bohm
t and the outstanding events will be acted upon. Again, sorry if this is not what you asked for. Have fun, Harald > -----Original Message- > From: Louis Bohm [mailto:[EMAIL PROTECTED] > Sent: Tuesday, June 26, 2001 10:53 > To: perl-win32-gui-users@lists.sourceforge.net > Subject: [

[perl-win32-gui-users] Updating a window.

2001-06-26 Thread Louis Bohm
I am sure this is a really stupid question. But how do I update things in the window I create WITHOUT human intervention. Here is what I have for a script: use Win32::GUI; $main = Win32::GUI::Window->new( -name => 'Main', -width => 100, -height => 100, -text => 'Louis

Re: SOLVED Re: [perl-win32-gui-users] Getting Perl.exe - application error

2001-06-26 Thread Louis Bohm
:45:20 -0400, Louis Bohm said: | I found that this line was in error: | $main->AddLabel(-text => "Hello World"); | | I needed to include the -name as shown bellow: | $main->AddLabel( | -name => "Test", | -text => "Hello

SOLVED Re: [perl-win32-gui-users] Getting Perl.exe - application error

2001-06-26 Thread Louis Bohm
I found that this line was in error: $main->AddLabel(-text => "Hello World"); I needed to include the -name as shown bellow: $main->AddLabel( -name => "Test", -text => "Hello World", ); What bothers me about this is that I pulled the top line right fr

[perl-win32-gui-users] Getting Perl.exe - application error

2001-06-26 Thread Louis Bohm
I am getting perl.exe - Application Error when trying to run the following code: use Win32::GUI; $main = Win32::GUI::Window->new( -name => 'Main', -width => 100, -height => 100, ); $main->AddLabel(-text => "Hello, world");

[perl-win32-gui-users] Getting Perl.exe - application error

2001-06-26 Thread Louis Bohm
I am getting perl.exe - Application Error when trying to run the following code: use Win32::GUI; $main = Win32::GUI::Window->new( -name => 'Main', -width => 100, -height => 100, ); $main->AddLabel(-text => "Hello, world");