Tk::Menustrip - Another menubar with help menu support, etc
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;
Damion K. Wilson, dkw@rcm.bm
1 POD Error
The following errors were encountered while parsing the POD:
=cut found outside a pod block. Skipping to next block.
To install Tk::Signals, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Tk::Signals
CPAN shell
perl -MCPAN -e shell install Tk::Signals
For more information on module installation, please visit the detailed CPAN module installation guide.