Hi Thanx for the help Zentara. Here are a part of my code. I know that I'm doning stuff the long way so if anyone could show me a shorter way it will be helpfull. I wanted to put the sub's that I call into one but how? The progress "meter" have to show that it is still busy scanning the file, as soon as it is done and the file is closed, and the output have been given the meter should stop. I don't want the user to close the program before the job is done.
Thanx >Hi > >My program works thru long lists of word. How can I show the user that >it is still busy and when it is done. Is there a progressmeter that I >can insert into the while loop. To have a perl/tk interface for the >user. > Here is an example, you need to show us your code, if you want us to help you fit it into your script. #!/usr/bin/perl use strict; use warnings; use Tk; use Tk::ProgressIndicator; my $MainWindow = MainWindow->new(); my $total = 100; # this will vary my $ProgressIndicator = $MainWindow->ProgressIndicator ( '-current' => 0, '-limit' => 100, # this is fixed! '-increment' => 1, '-height' => 20, '-width' => 400 )->pack; foreach my $offset (0..$total) { $ProgressIndicator->configure ('-current' => $offset*100/$total,); $MainWindow->update; } MainLoop;
toets_s.pl
Description: Binary data
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>