sub help_menuitems
{
 [['command',$messages[44],-command=>[\&help],-accelerator=>'F1']];
}
$help=$menubar->Menubutton(-cursor=>'',-text=>$messages[50],-menuitems => help_menuitems,-tearoff=>0,-state=>'active');
$help->pack(qw/-side left/);