Re: [perl-win32-gui-users] newbie - trying to get data from text box

[Jonathan S. <jso...@al...>]

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:=20
$Frame->aTextField->SetFocus();

Jonathan Southwick
Technical & Network Services
Allegheny College, Meadville, PA
jso...@al...



----- Original Message -----=20
  From: Michael Solomon=20
  To: Perl Gui (E-mail)=20
  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=20

  I can now capture the text=20

  What I would also like to do is start with the cursor in the text box =
rather than having to click on it.=20

  Is that possible and if so how do I do it=20



  Regards=20



  Mike Solomon=20



  -----Original Message-----=20
  From:   Anthony C. George [mailto:ag...@em...]=20
  Sent:   05 January 2001 18:46=20
  To:     per...@li...=20
  Subject:        RE: [perl-win32-gui-users] newbie - trying to get data =
from text box=20

  To get the text in the box:=20
  $myText=3D$Frame->aTextField->Text();=20
  To set the text:=20
  $Frame->aTextField->Text($myText);=20



  >tony=20

  -----Original Message-----=20
  From:   per...@li...=20
  [mailto:per...@li...]On Behalf Of=20
          Michael Solomon=20
  Sent:   Friday, January 05, 2001 11:18 AM=20
  To:     Perl Gui (E-mail)=20
  Subject:        [perl-win32-gui-users] newbie - trying to get data =
from text box=20



  I have just started looking at Win32 Gui=20
  What I want to do is put up a text box and allow a user to enter data =
then=20
  capture it=20
  By looking at code posted here I have written the following: use =
Win32::GUI;=20
  $Frame =3D new Win32::GUI::Window(=20
  * name =3D> "aFrame",=20
  * top =3D> 100,=20
  * left =3D> 150,=20
  * width =3D> 350,=20
  * height =3D> 200,=20
  * title =3D> "Test Win32::GUI",=20
              );=20
  $Frame->AddTextfield(=20
  * name =3D> "aTextField",=20
  * top =3D> 50,=20
  * left =3D> 20,=20
  * height =3D> 20,=20
  * width =3D> 300,=20
  * prompt =3D> "Type a text here : ",=20
             );=20
  $Frame->AddButton(=20
  * name =3D> "aButton",=20
  * text =3D> "OK",=20
  * top =3D> 90,=20
  * left =3D> 150,=20
  * height =3D> 25=20
  * width =3D> 50,=20
                 );=20

  $Frame->Show();=20
  Win32::GUI::Dialog();=20
  sub aFrame_Terminate {=20
  * 1;=20
            }=20

  sub aButton_Click {=20
  print "test\n";=20
  &aFrame_Terminate;=20
  }=20



  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.=20
  Regards=20

  Mike Solomon=20
  Technical Manager=20
  Work     01582 831125=20
  Mobile 07941 537 172=20
  email   mso...@3s...=20
  =
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=20
  =3D=3D=3D=3D=3D=20
  Important: Any views or opinions expressed by the sender do not =
necessarily=20
  represent those of the 3s Group. This e-mail and any attachment(s)=20
  are intended for the above named only and may be confidential.  If you =
are=20
  not=20
  the named recipient please notify us immediately.  You must not copy =
or=20
  disclose=20
  the contents to any third party.=20
  Internet e-mail is not a fully secure communications medium.  Please =
take=20
  this into account when sending e-mail to us.=20
  Any attachment(s) to this e-mail are believed to be free from virus, =
but it=20
  is the responsibility of the recipient to make all the necessary virus =

  checks.=20
  www.3s-group.com=20
  =
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=20




  _______________________________________________=20
  Perl-Win32-GUI-Users mailing list=20
  Per...@li...=20
  http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users=20