NAME

Tk::Menustrip - Another menubar with help menu support, etc

SYNOPSIS

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.