THANK YOU!!!!!! THANK YOU! THANK YOU! .... now my Stop button works in my
program. I could never figure out why it wasn't registering the click.
Jonathan Southwick
[EMAIL PROTECTED]
----- Original Message -----
From: "Aldo Calpini" <[EMAIL PROTECTED]>
To: "Eric Bennett" <[EMAIL PROTECTED]>
Cc: "Robert Sherman" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
Sent: Monday, December 18, 2000 11:20 AM
Subject: Re: [perl-win32-gui] $Window->TextField->Text()
> Eric Bennett wrote:
> > On Fri, 15 Dec 2000, Robert Sherman wrote:
> >
> >> any idea as to why in the script below, in sub Button2_Click,
> >> TextField1 does not change to "Processing..." prior to running
> >> the process_file sub? A similar call in the process_file sub
> >> changes the field to "Done!" when it finishes, and that call
> >> works fine...
> >
> > The Text method is queueing a message to TestField1 to change,
> > but that message cannot be acted upon until the current *_Click
> > event exits.
> >
> > What ends up happening is that process_file runs, then
> > afterward the text changes twice quickly as the messages are
> > processed.
>
> correct, and very well explained! thanks Eric ;-)
>
> > How to fix it? I don't have enough experience with Win32::GUI.
>
> I can help here.
> in the process_file sub, put a call to DoEvents() inside the
> loop. this will ensure that all queued messages are processed
> before going on with the loop:
>
> foreach $line (<INFILE>) {
>
> $Window->DoEvents();
>
> # body of the loop...
>
> }
>
> this will, of course, make your loop run slightly slower (almost
> irrelevant if there is no activity on the window). but there is
> the advantage (other than having the Textfield saying
> "Processing...") of being able to stop the loop in the middle
> by killing the window, or with a 'dedicated' stopbutton, for
> example.
>
>
> cheers,
> Aldo
>
> __END__
> $_=q,just perl,,s, , another ,,s,$, hacker,,print;
>
>
>
