SUCCESS!!! (except for making it modal. I looked at the code in Show that handles modal-ness and my eyes kind of glazed over ... any insight into how that stuff works would be appreciated! :o)) The following does pretty much just what I wanted. Only slight problem is where the TL pops up -- a little more research in how how the PopUp stuff handles "make the thing pop up HERE" and I think I've got what I was looking for!
Meta question: is this worth cleaning up and turning into a real widget, or should I just go back into my hole and use it for my app?
#!/usr/bin/perl
# Test to see if we can make our own multi-column menu out of
## a toplevel and radiobuttons
use strict ;
use warnings ;
use Tk ;
my $mw = MainWindow->new ;
$mw->Button(-text => "Make menu", -command => \&GenMenu)->pack ;
my $picked ;
$mw->Entry(-state => 'disabled', -textvariable => \$picked)->pack ;
MainLoop() ;
my $menuselect ;
my $TL ;
sub GenMenu
{ $TL = $mw->Toplevel ;
for my $f (1 .. 3)
{ my $frame = $TL->Frame->pack(-side => 'left');
for my $menu (1 .. 5)
{ Radio($frame, "Column $f, Row $menu", $f*5 + $menu) ; }
}
$TL->focus ;
}
sub PickedMenu
{ $picked = "You picked entry $menuselect" ;
$TL->destroy ;
}
sub Radio
{ $_[0]->Radiobutton(-text => $_[1],
-value => $_[2],
-variable => \$menuselect,
-indicatoron => undef,
-command => \&PickedMenu)->pack(-fill => 'x') ;
}
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
| |
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.