This might help you.

#! perl -slw
use strict;
use Tk;
use Tk::Widget;

my $mw = MainWindow->new;

my $value = '?';
my $mb = $mw->Menubutton(
   -relief => 'raise',
   -textvariable => \$value
)->pack;

$mb->configure(
    -activeforeground   => 'blue',
    -disabledforeground => 'black'
);

#$mb->bindtags([$mb,ref($mb),$mb->toplevel,'all']);
$mb->bind( '<Button-3>',        $mb->bind( 'Tk::Menubutton', '<Button-
+1>' ) );
$mb->bind( '<ButtonRelease-3>', $mb->bind( 'Tk::Menubutton', '<ButtonR
+elease-1>' ) );
$mb->bind( '<B3-Motion>',       $mb->bind( 'Tk::Menubutton', '<B1-Moti
+on>' ) );
$mb->bind( '<Button-1>',        sub{ Tk->break } );
$mb->bind( '<ButtonRelease-1>', sub{ Tk->break } );
$mb->bind( '<B1-Motion>',       sub{ Tk->break } );
$mb->bind( '<Double-Button-1>', sub{ $_[0]->configure( -state => 'disa
+bled' ); Tk->break; } );

my $menu = $mb->Menu( -tearoff => 0, -type => 'normal' );
$mb->configure( -menu => $menu );

for my $cell ( 1 .. 9 ) {
   $menu->command(
      -label => " $cell  ", ## Critical whitespace!
      -columnbreak => (( $cell % 3) == 1 ),
      -hidemargin => 1,
      -command => sub { print $value=$cell }
   );
}

MainLoop;
[download]

But someone else may come up with an easy answer for you..... thats the way it goes with Perl/Tk. :-)

Thanks for the suggestion! I'm relatively new to Tk (I'm a very long time Perl and CGI hacker moving over to using Tk), and there are lots of chunks of Tk I'm not really familiar with (hell, that I barely know anything about..:o)). Canvas is one such, but it looks like it'd make for a simple solution for exactly what I want. Not to mention a VERY handy widget to have in my arsenal... So thanks again!

I've looked at the Canvas widget and it is definitely a good thing for me to have in my Tk arsenal, but it feels wrong for this application. But the approach got me thinking and wouldn't this work: I'll have a button that pops open a new TopLevel, and I'll just populate the TopLevel with *radiobuttons*. no need that I can see for an intermediary layer of widgets. Just a simple loop with packing a frame into the TL, then packing *it* with radio buttons in for as long as a max-length column should be, then another frame, more radiobuttons, until I run out. They'll all store their value into the same var and have the same callback to deal with the menu selection. [I'd post sample code, but: 1) not written yet, and 2) it seems simple enough that I can't imagine it won't do what I need (or be all that difficult)). It's feeling like about five lines of Perl to do..:o) Am I missing something or is it really the case that this simple approach will get me what I was looking for?