Re: [perl-win32-gui-users] file-menu question

[Johan L. <jp...@bo...>]

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
jp...@bo...