this is what i did... hope it helps... (hardly a shining example, although a working one)
first create the menu, passing it a hash of display strings and menu item
names, using ">" to specify a sub-menu item
then pass the menu object to the Win32::GUI::Window->new() sub using
the -menu key.
darrik
===== code =====
############################################################################
##################
# menu
#
$mainMenu=new Win32::GUI::Menu( "&File" => "mnuFile",
"> Logout"
=> "mnuFileLogout",
"> E&xit"
=> "mnuFileExit",
"&Requests"
=> "mnuRequests",
"> &New"
=> "mnuRequestsNew",
"> &View"
=> "mnuRequestsView",
"&View"
=> "mnuView",
"> &Debug
Window" => "mnuViewDebug",
"&About"
=> "mnuAbout",
"> About
&Maint" => "mnuAboutMaint",
);
############################################################################
##################
# window
#
$winMain=new Win32::GUI::Window( -name => "Main",
-text
=> " Direct Link Maintenance",
-size
=> [ $mainWidth, $mainHeight ],
-pos
=> [ $mainX, $mainY ],
-menu
=> $mainMenu,
-cursor
=> $mainCursorArrow,
);
