diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/progress.pl')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/progress.pl | 46 |
1 files changed, 46 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/progress.pl b/Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/progress.pl new file mode 100644 index 00000000000..5875ba1d2b8 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/progress.pl @@ -0,0 +1,46 @@ +# ProgressBar - display various progress bars. + +use strict; +use Tk; +use Tk::ProgressBar; +use Tk::Scale; + +my $mw = MainWindow->new; + +my $status_var = 0; + +my($fromv,$tov) = (0,100); +foreach my $loop (0..1) { + my $res = 0; + my $blks = 10; + my @p = qw(top bottom left right); + foreach my $dir (qw(n s w e)) { + $mw->ProgressBar( + -borderwidth => 2, + -relief => 'sunken', + -width => 20, + -padx => 2, + -pady => 2, + -variable => \$status_var, + -colors => [0 => 'green', 50 => 'yellow' , 80 => 'red'], + -resolution => $res, + -blocks => $blks, + -anchor => $dir, + -from => $fromv, + -to => $tov + )->pack( + -padx => 10, + -pady => 10, + -side => pop(@p), + -fill => 'both', + -expand => 1 + ); + $blks = abs($blks - ($res * 2)); + $res = abs(5 - $res); + } + ($fromv,$tov) = ($tov,$fromv); +} + +$mw->Scale(-from => 0, -to => 100, -variable => \$status_var)->pack; + +MainLoop; |