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:ageorge@emsts.com]
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:   perl-win32-gui-users-admin@lists.sourceforge.net
[mailto:perl-win32-gui-users-admin@lists.sourceforge.net]On 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   msolomon@3s-technology.com
===========================================================================
=====
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