diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/check.pl')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/check.pl | 44 |
1 files changed, 44 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/check.pl b/Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/check.pl new file mode 100644 index 00000000000..a5f9a10c093 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/Tk/demos/widget_lib/check.pl @@ -0,0 +1,44 @@ +# check.pl + +use vars qw/$TOP/; + +sub check { + + # Create a top-level window that displays a bunch of check buttons. + + my($demo) = @_; + $TOP = $MW->WidgetDemo( + -name => $demo, + -text => 'Three checkbuttons are displayed below. If you click on a button, it will toggle the button\'s selection state and set a Perl variable to a value indicating the state of the checkbutton. Click the "See Variables" button to see the current values of the variables.', + -title => 'Checkbutton Demonstration', + -iconname => 'check', + ); + + my $var = $TOP->Button( + -text => 'See Variables', + -command => [\&see_vars, $TOP, [ + ['wipers', \$WIPERS], + ['brakes', \$BRAKES], + ['sober', \$SOBER], + ], + ], + ); + $var->pack(qw/-side bottom -expand 1/); + + my(@pl) = qw/-side top -pady 2 -anchor w/; + my $b1 = $TOP->Checkbutton( + -text => 'Wipers OK', + -variable => \$WIPERS, + -relief => 'flat')->pack(@pl); + my $b2 = $TOP->Checkbutton( + -text => 'Brakes OK', + -variable => \$BRAKES, + -relief => 'flat')->pack(@pl); + my $b3 = $TOP->Checkbutton( + -text => 'Driver Sober', + -variable => \$SOBER, + -relief => 'flat')->pack(@pl); + +} # end check + +1; |