From: Koul C. <chr...@fu...> - 2001-01-05 11:42:26
|
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 |
From: Koul C. <chr...@fu...> - 2001-01-05 14:52:30
|
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 |
From: Jonathan S. <jso...@al...> - 2001-01-05 13:22:23
|
It works for me! Are you saying you don't see the menu at all? Jonathan Southwick Technical & Network Services Allegheny College jso...@al... ----- Original Message ----- From: "Koul Christian" <chr...@fu...> To: <per...@ht...> Sent: Friday, January 05, 2001 6:44 AM 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 > |
From: Koul C. <chr...@fu...> - 2001-01-05 14:17:24
|
I still don't see the menu. I have Win32-GUI 0.99 on Win95 and perl v5.6.0 built for MSWin32-x86-multi-thread (Binary build 620 provided by ActiveState). Jonathan Southwick wrote: > It works for me! Are you saying you don't see the menu at all? > > Jonathan Southwick > Technical & Network Services > Allegheny College > jso...@al... > > ----- Original Message ----- > From: "Koul Christian" <chr...@fu...> > To: <per...@ht...> > Sent: Friday, January 05, 2001 6:44 AM > 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 > > > > _______________________________________________ > Perl-Win32-GUI-Users mailing list > Per...@li... > http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users -- Sincerely. __________________ Christian Koul Civil Engineer Unit=E9 Statistique - Fucam |
From: Aldo C. <da...@pe...> - 2001-01-05 15:00:50
|
Koul Christian wrote: > I still don't see the menu. > I have Win32-GUI 0.99 on Win95 please? I have never released version 0.99 ;-) to find out your Win32::GUI version number, use this: perl -MWin32::GUI -e "print Win32::GUI::Version;" cheers, Aldo __END__ $_=q,just perl,,s, , another ,,s,$, hacker,,print; |
From: Koul C. <chr...@fu...> - 2001-01-05 15:21:54
|
My previous version was http://www.ActiveState.com/PPMPackages/5.6 PPM> search Packages available from http://www.ActiveState.com/PPMPackages/5.6: Win32-API [0.01 ] Implementation of arbitrary Win32 APIs. Win32-AdminMisc [0.10 ] Performs various Win32 administrative tasks that are not addressed by Win32::NetAdmin. Win32-DDE [0.02 ] Perl extension for Win32 DDE. Win32-GUI [0.99 ] Win32 Graphical User Interface Extension Win32-Shell [0.03 ] A simple extension for displaying Windows message boxes and ......... I made the update at dada.perl.it/PPM and now it is C:\Perl\koul> perl -MWin32::GUI -e "print Win32::GUI::Version; 0.0.502 Aldo Calpini wrote: > Koul Christian wrote: > > I still don't see the menu. > > I have Win32-GUI 0.99 on Win95 > > please? I have never released version 0.99 ;-) > to find out your Win32::GUI version number, use this: > > perl -MWin32::GUI -e "print Win32::GUI::Version;" > > cheers, > Aldo > > __END__ > $_=3Dq,just perl,,s, , another ,,s,$, hacker,,print; > > _______________________________________________ > Perl-Win32-GUI-Users mailing list > Per...@li... > http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users -- Sincerely. __________________ Christian Koul Civil Engineer Unit=E9 Statistique - Fucam |