my $editMenu = $editDrop->Menu(-tearoff => 0); $editMenu->command(-label=>'Undo', -accelerator=>'Ctrl-Z', -command=>sub{undoMenu($notebook)}, -underline=>0);