RE: [tcltk-perl] Re: Perl/Tk Aqua progress?

[Konovalov, V. <vko...@sp...>]

> Following one-liner on Win32 that shows BWidget's ProgressBar:
> perl -MTcl::Tk=:perlTk -we
> "$mw=tkinit;$mw->Declare('ProgressBar','ProgressBar',-require=
> >'BWidget');$m
> w->ProgressBar(qw/-maximum 1000 -variable/,\$r)->pack for 0..9;
> $r++,$mw->update for 0..1000;MainLoop"

can't resist to show another way to do progress bar.

Almost the same one-liner:
perl -MTcl::Tk=:perlTk -we
"$mw=tkinit;$mw->Declare('feedback','iwidgets::feedback',-require=>'Iwidgets
',-prefix=>'feedb');$fb=$mw->feedback(-steps=>10000)->pack(-fill=>'x');$fb->
step(1),$fb->update for 0..9999;MainLoop"

but now it uses progress bar from Iwidgets package.

A version to run from file:

use Tcl::Tk qw=:perlTk=;
$mw=tkinit;
$mw->Declare('feedback','iwidgets::feedback',-require=>'Iwidgets',-prefix=>'
feedb');
$fb=$mw->feedback(-steps=>10000)->pack(-fill=>'x');
$fb->step(1),$fb->update for 0..9999;
MainLoop;