[perl-win32-gui-users] eek! =)
Using Win32::GUI and I'm having a problem with the program reporting to windows that it is not responding. I know that it is because of the loop I have the program in but I still want the user to work while I'm processing in the background. I found a reference to $win-DoEvents() but as far as I can see that works but it errors out with Use of uninitialized value in subroutine entry at hotfix.pl line 172 Gah =( I'm starting to hate this... I've looked at the archives but no search sucks =) Anyone have any ideas?
RE: [perl-win32-gui-users] eek! =)
here is a sample break from the code starts on line 162 ends on line 185. sub ::btnOpen_Click { defined(my $win = $Win32::GUI::Loft::window{winFileDisplay}) or return(1); my %file1 = $win-tvwTreeView()-ItemInfo( $win-tvwTreeView-SelectedItem() ) or return(1); my $file = $file1{'-text'}; $interface-execute('check_server', $file); until($interface-get_state eq 'fin') { my $void = $win-DoEvents(); $win-pbProgressBar()-StepIt(); sleep(1); } $win-pbProgressBar()-SetPos(0); my @return_value = $interface-get_retval; my $msg = ; foreach my $line (@return_value){ $msg = $msg . $line; } $win-reFileSelected()-Text($msg); return(1); } -Original Message- From: FARRINGTON, RYAN [mailto:[EMAIL PROTECTED] Sent: Tuesday, May 28, 2002 8:48 AM To: 'perl-win32-gui-users@lists.sourceforge.net' Subject: [perl-win32-gui-users] eek! =) Using Win32::GUI and I'm having a problem with the program reporting to windows that it is not responding. I know that it is because of the loop I have the program in but I still want the user to work while I'm processing in the background. I found a reference to $win-DoEvents() but as far as I can see that works but it errors out with Use of uninitialized value in subroutine entry at hotfix.pl line 172 Gah =( I'm starting to hate this... I've looked at the archives but no search sucks =) Anyone have any ideas?
Re: [perl-win32-gui-users] eek! =)
Using Win32::GUI and I'm having a problem with the program reporting to windows that it is not responding. I know that it is because of the loop I have the program in but I still want the user to work while I'm processing in the background. I found a reference to $win-DoEvents() but as far as I can see that works but it errors out with Use of uninitialized value in subroutine entry at hotfix.pl line 172 Gah =( I'm starting to hate this... I've looked at the archives but no search sucks =) Anyone have any ideas? Yup, I see this in my own scripts. From what I understand, it's equivalent to Win32::GUI saying hey! there are no events for me to respond to. I've done the requisite searching, .pm looking, and so forth, and the only non-destructive way I stopped the error was to add the following to my script: # override the warning signal, which # will stop thousands of DoEvent warnings # happening under Win32::GUI. BEGIN { $SIG{'__WARN__'} = sub { warn $_[0] unless (caller())[0] =~ /Win/; } } Which basically says to ignore any warnings that the Win32 libraries pass off to your script. Of course, you'd only want to do this once you're sure that your code is working perfectly and flags no other warnings. -- Morbus Iff ( i'm the droid you're looking for ) Culture: http://www.disobey.com/ and http://www.gamegrene.com/ Tech: http://www.oreillynet.com/pub/au/779 - articles and weblog icq: 2927491 / aim: akaMorbus / yahoo: morbus_iff / jabber.org: morbus