Thanks Johan. That was it.
Chris
----- Original Message -----
From: "Johan Lindstrom" <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Thursday, June 07, 2001 2:17 AM
Subject: Re: [perl-win32-gui-users] file-menu question
> 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]
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> [email protected]
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>
