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

[Chris E. <ce...@mi...>]

Thanks Johan. That was it.

Chris
----- Original Message -----
From: "Johan Lindstrom" <jp...@bo...>
To: <per...@li...>
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 =3D Win32::GUI::MakeMenu(
>          "&File"                     =3D> "mnuFile",
>          " > &New"                   =3D> "mnuFileNew",
>          " > &Open..."               =3D> "mnuFileOpen",
>          " > &Save"                  =3D> "mnuFileSave",
>          " > Save &as..."            =3D> "mnuFileSaveAs",
>          " > -"                      =3D>  0,
>          " > E&xit"                  =3D> "mnuFileExit",
>
>          "&Design"                   =3D> "mnuDesign",
>          " > &Test window"           =3D> "mnuDesignTest",
>
>          "&Help"                     =3D> "mnuHelp",
>          " > &Topics"                =3D> "mnuHelpTopics",
>          " > -"                      =3D>  0,
>          " > &About..."              =3D> "mnuHelpAbout",
>          );
>
> my $winMain =3D new Win32::GUI::Window(
>        -left   =3D> 0,
>        -top    =3D> 100,
>        -width  =3D> 200,
>        -height =3D> 500,
>        -name   =3D> "winMain",
>        -text   =3D> "The GUI Loft",
>        -menu   =3D> $mnuMain,
>        );
> $winMain->{-dialogui} =3D 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 o=
n.
> Pre-release previews may be available on request if anyone is intereste=
d.
> </BUZZ>
>
> --
> Johan Lindstr=F6m, Sourcerer, Boss Casinos Ltd, Antigua
> jp...@bo...
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>