[perl-win32-gui-users] menu

[Koul Christian]

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