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