Help for this page

Select Code to Download


  1. or download this
    $TOP->optionAdd("*Cursor",'');
  2. or download this
    sub help_menuitems
{
...
}
$help=$menubar->Menubutton(-cursor=>'',-text=>$messages[50],-menuitems
+ => help_menuitems,-tearoff=>0,-state=>'active');
$help->pack(qw/-side left/);
  3. or download this
    ...
 my $cur = $Tk::postedMb;
...
 $menu->activate('none');
 $menu->GenerateMenuSelect;
...