FW: [perl-win32-gui-users] newbie - trying to get data from text boxYes that is also possible. Try this:
To set the cursor in the textfield: $Frame->aTextField->SetFocus(); Jonathan Southwick Technical & Network Services Allegheny College, Meadville, PA [EMAIL PROTECTED] ----- Original Message ----- From: Michael Solomon To: Perl Gui (E-mail) Sent: Monday, January 08, 2001 6:55 AM Subject: FW: [perl-win32-gui-users] newbie - trying to get data from text box Thanks for this I can now capture the text What I would also like to do is start with the cursor in the text box rather than having to click on it. Is that possible and if so how do I do it Regards Mike Solomon -----Original Message----- From: Anthony C. George [mailto:[EMAIL PROTECTED] Sent: 05 January 2001 18:46 To: perl-win32-gui-users@lists.sourceforge.net Subject: RE: [perl-win32-gui-users] newbie - trying to get data from text box To get the text in the box: $myText=$Frame->aTextField->Text(); To set the text: $Frame->aTextField->Text($myText); >tony -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Michael Solomon Sent: Friday, January 05, 2001 11:18 AM To: Perl Gui (E-mail) Subject: [perl-win32-gui-users] newbie - trying to get data from text box I have just started looking at Win32 Gui What I want to do is put up a text box and allow a user to enter data then capture it By looking at code posted here I have written the following: use Win32::GUI; $Frame = new Win32::GUI::Window( * name => "aFrame", * top => 100, * left => 150, * width => 350, * height => 200, * title => "Test Win32::GUI", ); $Frame->AddTextfield( * name => "aTextField", * top => 50, * left => 20, * height => 20, * width => 300, * prompt => "Type a text here : ", ); $Frame->AddButton( * name => "aButton", * text => "OK", * top => 90, * left => 150, * height => 25 * width => 50, ); $Frame->Show(); Win32::GUI::Dialog(); sub aFrame_Terminate { * 1; } sub aButton_Click { print "test\n"; &aFrame_Terminate; } What I haven't worked out how to do is to access the text entered. Also I want the cursor to start in the text box rather than having to click on it. Any help will be gratefully received. Regards Mike Solomon Technical Manager Work 01582 831125 Mobile 07941 537 172 email [EMAIL PROTECTED] =========================================================================== ===== Important: Any views or opinions expressed by the sender do not necessarily represent those of the 3s Group. This e-mail and any attachment(s) are intended for the above named only and may be confidential. If you are not the named recipient please notify us immediately. You must not copy or disclose the contents to any third party. Internet e-mail is not a fully secure communications medium. Please take this into account when sending e-mail to us. Any attachment(s) to this e-mail are believed to be free from virus, but it is the responsibility of the recipient to make all the necessary virus checks. www.3s-group.com ======================================================================== _______________________________________________ Perl-Win32-GUI-Users mailing list Perl-Win32-GUI-Users@lists.sourceforge.net http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
