Chris wrote:
Is there anything special I should know about making a Menu visible?
Study this example code:
my $mnuMain = Win32::GUI::MakeMenu(
"&File" => "mnuFile",
" > &New" => "mnuFileNew",
" > &Open..." => "mnuFileOpen",
" > &Save" => "mnuFileSave",
" > Save &as..." => "mnuFileSaveAs",
" > -" => 0,
" > E&xit" => "mnuFileExit",
"&Design" => "mnuDesign",
" > &Test window" => "mnuDesignTest",
"&Help" => "mnuHelp",
" > &Topics" => "mnuHelpTopics",
" > -" => 0,
" > &About..." => "mnuHelpAbout",
);
my $winMain = new Win32::GUI::Window(
-left => 0,
-top => 100,
-width => 200,
-height => 500,
-name => "winMain",
-text => "The GUI Loft",
-menu => $mnuMain,
);
$winMain->{-dialogui} = 1;
As you can see, the Menu object is specified with the -menu option when you
create the window.
/J
PS.
<BUZZ>
BTW, the code is from "The GUI Loft", a GUI designer tool I'm working on.
Pre-release previews may be available on request if anyone is interested.
</BUZZ>
--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
[EMAIL PROTECTED]
