Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

Re: Tk::ProgressBar --Reset it?

by bbfu (Curate)
on Jul 08, 2004 at 23:24 UTC ( #372995=note: print w/ replies, xml ) Need Help??


in reply to Tk::ProgressBar --Reset it?

I tried the following and it worked just fine:

#!/usr/bin/winperl use warnings; use strict; use Tk; use Tk::ProgressBar; my $w = MainWindow->new(); my $p = $w->ProgressBar( -blocks => 1, -width => 20, -length => 200, -from => 0, -to => 100, -variable => \(my $foo), )->pack(); $foo = 0; $w->repeat(10, sub { $foo = ($foo + 1) % 100 }); MainLoop;

bbfu
Black flowers blossom
Fearless on my breath


Comment on Re: Tk::ProgressBar --Reset it?
Download Code
Re^2: Tk::ProgressBar --Reset it?
by amonotod (Acolyte) on Jul 09, 2004 at 15:01 UTC
    Here is the now working code that is closer to what I am doing...
    #perl -w use strict; my ($display, $progress, $percent_done, $progress_bar_set, $mw, $lblTe +xt, $display, $line, $count); &CreateDisplay; $line = 1; while ($line < 30) { $display->insert('0.0', "Line $line\n"); $mw->update; $count = 1; while ($count < 50) { $percent_done = $count * 2; $mw->update; $count++; sleep 1; } $line++; sleep 2; } sub CreateDisplay { use Tk; use Tk::Text; $mw = MainWindow->new(-title => 'Progress bars'); create_progressbar(); $lblText = $mw->Label(-text=>"This is a test of multiple progress ba +rs...")->pack(-side => 'top'); $display = $mw->Text(-height => '25', -width => '100',)->pack(-side +=> 'bottom', -expand => '1', -fill => 'both'); $display->insert('0.0', "Starting line\n"); $mw->update; } sub create_progressbar { use Tk::ProgressBar; $progress = $mw->ProgressBar( # create a progress bar for reference -length => 100, -width => 20, -from => 0, -to => 100, -blocks => 100, -colors => [0, 'blue'], -variable => \$percent_done )->pack(-fill => 'x'); }
    The missing ingredient was the the $mw->update after each $percent_done incremement. It worked while increasing, but just didn't when decreasing, for some reason.....

    Thank you for the help,
    amonotod

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://372995]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (9)
As of 2014-08-23 13:08 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (173 votes), past polls