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]