Tk sub calling problem

Bloodelf has asked for the wisdom of the Perl Monks concerning the following question:

I'm working on a TK script that uses a label to display the current status. The script has a button that calls a sub similar to this:

sub update {$main->configure(-cursor=>"watch");
            $textbox->configure(-text =>"Updating Something...")
            find(\&check_file,$path);
            $main->configure(-cursor=>"arrow");
            $textbox->configure(-text =>"Status normal.");}
[download]

The problem is that the find command takes several seconds, and the neither the label or the cursor will update until the sub returns. This gives the user the impression that the script has frozen. Is there any way around this??
Cheers.

Comment on Tk sub calling problem Download Code

Replies are listed 'Best First'.
Re: Tk sub calling problem by {NULE} (Hermit) on Dec 09, 2001 at 04:43 UTC
Hi, A `$main->update();` in a strategic place may help you here. I'd try right before the `find`. {NULE} -- http://www.nule.org	[reply] [d/l] [select]
Re: Re: Tk sub calling problem by clintp (Curate) on Dec 09, 2001 at 23:13 UTC
If the find itself is taking several seconds then put the `$main->update()` in the callback subroutine (`check_file`?) and execute it occasionally.	[reply] [d/l] [select]
Re: Re: Tk sub calling problem by Bloodelf (Beadle) on Dec 09, 2001 at 04:47 UTC
Many thanks.	[reply]
Re: Re: Tk sub calling problem by sparkyichi (Deacon) on Dec 09, 2001 at 04:49 UTC
My bad, sorry for the post... Sparky	[reply]
(ichimunki) Re: Tk sub calling problem by ichimunki (Priest) on Dec 09, 2001 at 23:54 UTC
In addition to updating the screen, which you can sprinkle liberally through your code if need be, you may also want to consider linking your textbox or label to a variable (a global works well in this case-- and since it's a GUI that's probably OK) rather than hardcoding the text in with configure. `my $Status = 'Starting application'; my $label = $main->label( -textvariable => \$Status ); $Status = 'Done loading application';` [download] You may still have to update the window to get changes in $Status to appear, but it will make updating a status bar a lot simpler to type.	[reply] [d/l]