[perl-win32-gui-users] menu

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

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