Adding radio buttom to Frame : Layout « GUI « Perl






  1. Perl
  2. GUI
  3. Layout

Adding radio buttom to Frame

 

#!/usr/bin/perl -w

use Tk;

$quality    = "letter";

$main = MainWindow->new();

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

$label->pack();

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

$radio1 = $frame->Radiobutton(-text=>"Draft",
                              -variable=>\$quality,
                              -value=>"draft");
$radio1->pack(-side=>"top");

$radio2 = $frame->Radiobutton(-text=>"Letter",
                              -variable=>\$quality,
                              -value=>"letter");
$radio2->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";
    }
    
    exit;
}








Related examples in the same category

1.Pack controls on a window
2.Pack left, right, both
3.Using pack to control widget placement
4.Using place method to set control location
5.Control the fill
6.Layout control: fill
7.Layout controls: Pack to the top
8.Pack Bottom
9.Pack Left
10.Pack Right
11.Pack Top
12.Relayout(pack) the controls