Set Check Box Button onvalue and offvalue : Control Attributes « GUI « Perl

1. Perl
2. GUI
3. Control Attributes

Set Check Box Button onvalue and offvalue

 

#!/usr/bin/perl -w

use Tk;

$both_sides = "single";
$single_sides = "double";

$main = MainWindow->new();

$label = $main->Label(-text => "Print Options");

$label->pack();

$frame = $main->Frame(-relief=>"groove",
                      -borderwidth=>2);

$check1 = $frame->Checkbutton(-text=>"Both Sides",
                              -variable=>\$both_sides,
                              -onvalue=>"both",
                              -offvalue=>"single");
$check1->pack(-side=>"top");

$check2 = $frame->Checkbutton(-text=>"Single Sides",
                              -variable=>\$single_sides,
                              -onvalue=>"both",
                              -offvalue=>"single");
$check2->pack(-side=>"top");
$frame->pack();

$button = $main->Button(-text => "Exit",
                        -command => \&exit_button);
$button->pack();

MainLoop();

sub exit_button {
    if ( $both_sides eq "both") {
        print "Print both sides.\n";
    } else {
        print "Print single-sided.\n";
    }

    if ( $single_sides eq "both") {
        print "Print both sides.\n";
    } else {
        print "Print single-sided.\n";
    }    
    exit;
}

   
  

Related examples in the same category