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

[Peter E. <Pet...@at...>]

I tested your code and could see the menu. WHat versions of perl and
Win32-GUI are you using?

-----Original Message-----
From: Koul Christian [mailto:chr...@fu...]
Sent: Friday, January 05, 2001 6:45 AM
To: per...@ht...
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