tk::menustrip(3)
NAME
Tk::Menustrip - Another menubar with help menu support,
etc
SYNOPSIS
use Tk::Menustrip;
use Tk;
my $MainWindow = MainWindow->new();
my $l_Menubar = $this->Menustrip();
$l_Menubar->MenuLabel ('File'),
$l_Menubar->MenuEntry ('File', 'Save', sub
{Save();});
$l_Menubar->MenuSeparator ('File');
$l_Menubar->MenuEntry ('File', 'Exit', sub {Exit();});
$l_Menubar->MenuLabel ('Help', '-right');
$l_Menubar->MenuEntry ('Help', 'About...');
$l_Menubar->MenuSeparator ('Help');
$l_Menubar->MenuEntry ('Help', 'Help On...');
$l_Menubar->pack(-fill => 'x');
Tk::MainLoop;
DESCRIPTION AUTHORS
Damion K. Wilson, dkw@rcm.bm