#!/usr/bin/perl use Tk; use strict; my ($mw, $dir); $mw = MainWindow->new(); $mw -> Button ( -text => "OK", -command => \&create_new) -> pack ( -side => 'left'); $mw -> Button ( -text => "Cancel", -command => sub {exit;}) -> pack ( -side => 'right'); MainLoop; sub create_new { my $mt = $mw -> Toplevel (-title => "first"); my $rb1 = $mt -> Radiobutton( -text => "one", -value => "one", -variable => \$dir) -> pack(-side => 'top', -fill => 'x'); my $rb2 = $mt -> Radiobutton( -text => "two", -value => "two", -variable => \$dir) -> pack(-side => 'top', -fill => 'x'); $mt -> Button ( -text => "OK", -command => [\&create_new2]) -> pack ( -side => 'left'); $mt -> Button ( -text => "Cancel", -command => sub {$mt -> destroy;}) -> pack ( -side => 'right'); } sub create_new2 { my $mf = $mw -> Toplevel(-title => "second"); $mf -> Button ( -text => $dir) -> pack ( -side => 'left'); $mf -> Button ( -text => "Cancel", -command => sub {$mf -> destroy;}) -> pack ( -side => 'right'); }
In reply to Re: Perl Tk Radiobutton in a popup menu
by Anonymous Monk
in thread Perl Tk Radiobutton in a popup menu
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |