The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
 / 
Tk-DKW-0.03
River stage zero No dependents
1 ++
/ Tk::Menustrip

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.