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
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
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
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)
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
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
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
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
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: [
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
: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
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
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");
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");
14 matches
Mail list logo