1Mac(3)                       perl/Tk Documentation                      Mac(3)
2
3
4

NAME

6       Tk::ProgressBar::Mac - a blue, 3-D Macintosh Classic progress bar.
7

SYNOPSIS

9        use Tk::ProgressBar::Mac;
10        $pb = $parent->ProgressBar(-option => value);
11

DESCRIPTION

13       This widget provides a dynamic image that looks just like a Mac OS 9
14       progress bar.  Packed around it are four Frames, north, south, east and
15       west, within which you can stuff additional widgets. For example, see
16       how Tk::Copy::Mac uses several Labels and a CollapsableFrame widget to
17       create a reasonable facsimile of a Macintosh copy dialog.
18
19       The following option/value pairs are supported:
20
21       -width
22           The maximun width of the Progressbar.
23

METHODS

25       reset
26           Resets the progress bar image so that it appears unused (a
27           $pb->set(0) still shows the bar's base and end cap).
28
29       set($percent)
30           Sets the width of the progress bar, as a percentage of -width.
31

ADVERTISED WIDGETS

33       Component subwidgets can be accessed via the Subwidget method.  Valid
34       subwidget names are listed below.
35
36       Name:  label, Class:  Label
37             Widget reference of the Label containing the ProgressBar
38             Photo image.
39
40       Name:  tframe, Class:  Frame
41             Widget reference of the Frame north the ProgressBar.
42
43       Name:  bframe, Class:  Frame
44             Widget reference of the Frame south the ProgressBar.
45
46       Name:  lframe, Class:  Frame
47             Widget reference of the Frame west the ProgressBar.
48
49       Name:  rframe, Class:  Frame
50             Widget reference of the Frame east the ProgressBar.
51

EXAMPLE

53        use Tk;
54        use Tk::ProgressBar::Mac;
55        use strict;
56
57        my $mw = MainWindow->new;
58        my $pb = $mw->ProgressBar(-width => 150, -bg => 'cyan')->pack;
59
60        while (1) {
61            my $w = rand(100);
62            $pb->set($w);
63            $mw->idletasks;
64            $mw->after(250);
65        }
66

68       sol0@Lehigh.EDU
69
70       Copyright (C) 2000 - 2003, Stephen O. Lidie.
71
72       This program is free software; you can redistribute it and/or modify it
73       under the same terms as Perl itself.
74

KEYWORDS

76       Apple, ProgressBar
77
78
79
80Tk1.2                             2022-01-21                            Mac(3)
Impressum