RE: [perl-win32-gui-users] Cancel action requests

[Piske, H. <Har...@bo...>]

> Try using a _Timer instead of the while loop.
Wayyyy to much effort, although it would be the "correct" way to handle
this. If you just put a Win32::GUI::DoEvents() inside your loop, the user
can click around and events get fired while the script is running.

HOWEVER, bear in mind that the event handlers do run inside your loop, so
you must still implement a way to end the loop after a Cancel_Click. See my
posting "RE: some basic questions" (last thursday) for a code snippet.


> -----Original Message-----
> From: Marcus [mailto:li...@wo...]
> Sent: 16 November 2001 12:09
> To: per...@li...
> Subject: [perl-win32-gui-users] Cancel action requests
> 
> 
> I hope somebody can help on this one. I need to use a cancel button so
> the user can break out of a routine which is running. Problem is, the
> button cannot be pressed until the action has completed.
> 
> Run this and you'll see that as long as the loop is counting, the
> button click event will not respond. Can this be changed so that the
> click event is checked beforehand?
> 
> 
> use Win32::GUI;
> 
> $win = new Win32::GUI::Window(
> 	-name => 'MainWindow',
> 	-size => [200, 200],
> 	);
> 
> $win->AddButton(
> 	-name => "CancelButton",
> 	-text => "Cancel",
> 	-left => 50,
> 	-top => 100,
> 	);
> 
> $win->Show();
> 
> # Just print some numbers, updating the window so that the button
> remains visible.
> 
> for my $i (0..1500) {print "$i,"; $win->Update();}
> 		
> 	Win32::GUI::Dialog();
> 
> 	return(1);
> 
> 
> sub ::CancelButton_Click {
> 
> print "Cancel request.\n";
> }
> 
> 
> __END__
> 
> 
> Thanks,
> 
> Marcus
> 
> 
> 
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 

_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users