in reply to Re: Valid chars for Tk Label
in thread Valid chars for Tk Label
regards.use strict; use warnings; use Tk; my ($mw);#,$menubar,$file,@lables, @label_texts); $mw=MainWindow->new; my $menub=$mw->Menubutton(-text => "File", -menuitems => [ [ 'command' => "New", "-command" => \&newfile, "-underline" => + 0 ], [ 'command' => "Open", "-command" => \&openfile, "-underline" +=> 0 ], [ 'command' => "Save", "-command" => \&savefile, "-underline" +=> 0 ], [ 'command' => "SaveAs", "-command" => \&saveasfile, "-underli +ne" => 4 ] ] )->pack $mw->Button(-text=>'test', -command=>\&test)->pack; MainLoop; sub test{ print "in test\n"; foreach my $i (1 .. 4){ $menub->entryconfigure($i,-label=>'8 million ways to die (1986 +)[HD].TAG' ); } }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^3: Valid chars for Tk Label
by ron7 (Beadle) on Jan 21, 2011 at 00:09 UTC |