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: '[email protected]'
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?
