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
HISTORY
1 POD Error
The following errors were encountered while parsing the POD:
- Around line 474:
=cut found outside a pod block. Skipping to next block.