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

[Johan L. <jo...@ba...>]

Louis wrote:
>So are you saying something like this???
-snip-

More like:

my $EventLoop = 1;
while ($EventLoop) {
    #some code...
    Win32::GUI::DoEvents() while Win32::GUI::PeekMessage(0,0,0);
}

sub Exit_Click { $EventLoop =  0; }


Forget that Enable thing, it's cleaner with a dedicated variable. I just 
wanted to connect my solution to your existing code, I don't know what 
other stuff you were doing with the window's Enable status.


/J

------ ---- --- -- -- -- -  -   -    -        -
Johan Lindström                    Boss Casinos
Sourcerer                     jo...@ba...
                  http://www.bahnhof.se/~johanl/
If the only tool you have is a hammer,
everything tends to look
like a nail