Re: Perl Tk Asynchronous Progress Updates

Maybe this will save you time:

#!/usr/bin/perl

use strict;
use warnings;
use Tk;
use Tk::ProgressBar;

my $mw = MainWindow->new(-title => 'ProgressBar example');
my $percent_done = '';

my $progress = $mw->ProgressBar(
    -width => 30,
    -from => 0,
    -to => 100,
    -blocks => 50,
    -colors => [0, 'red', 50, 'white' , 80, 'blue'],
    -variable => \$percent_done
)->pack(-fill => 'x');

$mw->Button(-text => 'Go!', -command=> sub {
    foreach (my $i = 0; $i < 1000; ++$i) { 
        $percent_done = $i/10;
        print "$i\n";
        $mw->update; 
    }
})->pack(-side => 'bottom');

MainLoop;
[download]

Google for some more examples. Good luck.

Comment on Re: Perl Tk Asynchronous Progress Updates Download Code

Replies are listed 'Best First'.
Re^2: Perl Tk Asynchronous Progress Updates by Anonymous Monk on Jul 02, 2013 at 03:51 UTC
Thanks, but my problem is not in using the progressbar widget (I can do this successfully), but in making the callback which updates it execute asynchronously. My update function is more complicated than a simple for loop (as in your example) and takes a while to run (so I need the application to be responsive in the mean time).	[reply]
Re^3: Perl Tk Asynchronous Progress Updates by Khen1950fx (Canon) on Jul 02, 2013 at 04:14 UTC
The example that I gave you can be used with threads ideally, eg., using the button in each of your threads. It shouldn't detract from your application's responsiveness. Yes, you'll need to understand threads:-).	[reply]
Re^4: Perl Tk Asynchronous Progress Updates by Anonymous Monk on Jul 02, 2013 at 06:52 UTC
The example that I gave you can be used with threads ideally, eg., using the button in each of your threads. It shouldn't detract from your application's responsiveness. Yes, you'll need to understand threads:-). So Re: Perl Tk Asynchronous Progress Updates didn't answer Re: Perl Tk Asynchronous Progress Updates and Re^3: Perl Tk Asynchronous Progress Updates doesn't answer Re^2: Perl Tk Asynchronous Progress Updates -- all OP has to do is figure it out on his own -- why did you post this Khen1950fx, to tease the OP?	[reply]
Re^4: Perl Tk Asynchronous Progress Updates by Anonymous Monk on Jul 02, 2013 at 15:37 UTC
I see. I was hoping to avoid threads, but I guess I might have to end up using them after all. I suppose this means I will have to share data between them using threads::share in order to update the progress widget part of the main thread. thanks for the advice, Hermes	[reply]