[perl-win32-gui-users] menu

[Koul Christian]

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 = new Win32::GUI::Menu(
                  "&File"    => "File",
                  " > &Load" => "FileLoad",
             );

    $Frame = new Win32::GUI::Window(
          -name => "aFrame",
          -top => 100,
          -left => 150,
          -width => 350,
          -height => 400,
          -title => "Test Win32::GUI",
          -menu => $Menu,
         );
    $Frame->AddTextfield(
             -name => "aTextField",
              -top => 200,
              -left => 20,
              -height => 20,
              -width => 300,
             -prompt => "Type a text here : ",
        );
      $Frame->AddButton(
          -name => "aButton",
          -text => "OK",
          -top => 260,
          -left => 150,
          -height => 25
          -width => 50,
         );

    $Frame->AddStatusBar();
    $Frame->Show();

    Win32::GUI::Dialog();

    sub aFrame_Terminate {
         -1;
    }

-------------------------------------------


--

Sincerely.
__________________

Christian Koul
Civil Engineer
Unité Statistique - Fucam