Displaying 1 result from an estimated 1 matches for "menub".
Did you mean:
menu
2001 Sep 19
2
tcltk: Difficulties creating menus
I am struggling with adding menus to a tcltk application. The following
example (from the O'Reilly book on Perl/Tk) works fine:
#!/usr/bin/perl -w
use Tk;
my $mw = MainWindow->new;
$menub = $mw->Menubutton(-text => "Color")->pack();
foreach (qw/red yellow green blue grey/) {
$menub->radiobutton(-label => $_, -command => \&set_bg,
-variable => \$background_color, -value => $_);
}
MainLoop;
sub set_bg {
print "Backgr...