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

POD ERRORS

Hey! The above document had some coding errors, which are explained below:

Around line 474:

=cut found outside a pod block. Skipping to next block.