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

[H. W. M. <mi...@lu...>]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1


On Dec 8, 2004, at 7:03 AM, Konovalov, Vadim wrote:

>> 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;

For someone coming from a Perl/Tk (as opposed to a Tcl/Tk) background,  
how would I find out about these Tcl/Tk widgets and how to use them?

- --Wade
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.4 (Darwin)

iD8DBQFBtxFIo4DwsyRGDscRAu8IAJ94CRhkRBZnbJiOVMOaNQB5cUVCugCePgjm
3FLnWapsRfUwECm+8tBnP+0=
=uZvI
-----END PGP SIGNATURE-----