[perl-win32-gui-users] menu

[Koul C. <chr...@fu...>]

Hi,

it's work with this (copied from From: Vince
                                                          Subject:
[perl-win32-gui] Code
                                                          Date: Wed, 14
Oct 1998 16:54:06 -0700 (PDT) )

-----------------------------
use Win32::GUI;

    $menu =3D Win32::GUI::MakeMenu(
                     "&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