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

[Jonathan S. <jso...@al...>]

It works for me!  Are you saying you don't see the menu at all?

Jonathan Southwick
Technical & Network Services
Allegheny College
jso...@al...

----- Original Message -----
From: "Koul Christian" <chr...@fu...>
To: <per...@ht...>
Sent: Friday, January 05, 2001 6:44 AM
Subject: [perl-win32-gui-users] menu


> Hi,
>
>     I am new in win32::GUI and i have problem using menu.
> I have this but i can not see the menu. can somebody help me?
>
> -------------------------------------------
> use Win32::GUI;
>
>     $Menu =3D new Win32::GUI::Menu(
>                   "&File"    =3D> "File",
>                   " > &Load" =3D> "FileLoad",
>              );
>
>     $Frame =3D new Win32::GUI::Window(
>           -name =3D> "aFrame",
>           -top =3D> 100,
>           -left =3D> 150,
>           -width =3D> 350,
>           -height =3D> 400,
>           -title =3D> "Test Win32::GUI",
>           -menu =3D> $Menu,
>          );
>     $Frame->AddTextfield(
>              -name =3D> "aTextField",
>               -top =3D> 200,
>               -left =3D> 20,
>               -height =3D> 20,
>               -width =3D> 300,
>              -prompt =3D> "Type a text here : ",
>         );
>       $Frame->AddButton(
>           -name =3D> "aButton",
>           -text =3D> "OK",
>           -top =3D> 260,
>           -left =3D> 150,
>           -height =3D> 25
>           -width =3D> 50,
>          );
>
>     $Frame->AddStatusBar();
>     $Frame->Show();
>
>     Win32::GUI::Dialog();
>
>     sub aFrame_Terminate {
>          -1;
>     }
>
> -------------------------------------------
>
>
> --
>
> Sincerely.
> __________________
>
> Christian Koul
> Civil Engineer
> Unit=E9 Statistique - Fucam
>
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>