Tk::Menustrip 0.03

Tk::Menustrip is 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;