use Tk; $main=MainWindow->new; $menubar=$main->Frame->pack(-side=>'top',-fill=>'x'); $ragimenu= $menubar->Menubutton(-text=>'Ragi')->pack(-side=>'left'); $ragimenu->command(-label=>'History',-command=>\&history); sub history { $test=$main->Entry->pack(); $ragimenu->configure(-state=>disabled); } MainLoop;
In reply to how to disable a menuitem at runtime by arunmep
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |