Create RadioButton : Radiobutton « GUI « Perl

Home
Perl
1.Array
2.CGI
3.Class
4.Data Type
5.Database
6.File
7.GUI
8.Hash
9.Language Basics
10.Network
11.Regular Expression
12.Report
13.Statement
14.String
15.Subroutine
16.System Functions
17.Win32
18.XML
Perl » GUI » Radiobutton 
Create RadioButton
   

use Tk;

$main = MainWindow->new();

$main->Radiobutton-text => "Radio 1",
    -command => sub{
    $text1->delete('1.0', 'end');
    $text1->insert('end', "You clicked radio 1");}
)->pack;

$main->Radiobutton-text => "Radio 2",
    -value => "0",
    -command => sub{
    $text1->delete('1.0', 'end');
    $text1->insert('end', "You clicked radio 2");
    }
)->pack;

$main->Checkbutton-text => "Check 1",
    -variable => $check1,
    -command => sub{
    $text1->delete('1.0', 'end');
    $text1->insert('end', "You clicked check 1 $check1");
    }
)->pack;

$main->Checkbutton-text => "Check 2",
    -command => sub{
    $text1->delete('1.0', 'end');
    $text1->insert('end', "You clicked check 2");
    }
)->pack;

$text1 = $main->Text ('-width'=> 40'-height' =2)->pack;

MainLoop;

   
    
    
  
Related examples in the same category
1.Each radio button shares the same variable
2.Save Radio Button Selection Value to a scalar value
3.Setting Text for Radio Button
java2s.com  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.