These lines came directly from a program I have written.
Jonathan
--------------------------------------------------------------
Jonathan Southwick [EMAIL PROTECTED]
Technical and Network Services
Allegheny College
Meadville, PA 16335 814-332-2755
----- Original Message -----
From: "Anthony George" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, May 18, 2000 9:51 AM
Subject: Re: [perl-win32-gui] passing user input from a textfield to a scalar
> All the constants that you use in this example, do you have a list of what effect
> they have, or is it mostly experimenting?
> >tony
>
> Jonathan Southwick wrote:
>
> > Aaron,
> >
> > Here is how I do it and it works fine:
> >
> > ## This is the window creation
> > $adduser = new GUI::DialogBox(
> > -title => "Add User Info",
> > -left => 387,
> > -top => 200,
> > -width => 280,
> > -height => 195,
> > -class => $adduser_class,
> > -font => $F,
> > -name => "AddUserWindow",
> > -style => WS_BORDER | DS_MODALFRAME | WS_CAPTION | WS_POPUP | WS_SYSMENU,
> > -exstyle => WS_EX_DLGMODALFRAME | WS_EX_WINDOWEDGE | WS_EX_CONTROLPARENT,
> > );
> >
> > ## I add the text label here
> > $adduser->AddLabel(
> > -text => "First name: ",
> > -left => 10,
> > -top => 10,
> > );
> >
> > ## I add the textfield here
> > $fname_input = $adduser->AddTextfield(
> > -left => 120,
> > -top => 8,
> > -width => 105,
> > -height => 22,
> > -tabstop => 1,
> > );
> >
> > ## I get the value of the textfield in this subroutine
> > sub Proceed_Click {
> > $fname = $fname_input->Text; ## This is the line to pat attention to
> > $lname = $lname_input->Text;
> > $room = $rm_input->Text;
> > $building = $bld_input->Text;
> > $adapteraddress = lc($adap_input->Text);
> > $validinput = CheckInput();
> > $adduser->PostQuitMessage(0);
> > return;
> > }
> >
> > Jonathan
> > --------------------------------------------------------------
> > Jonathan Southwick [EMAIL PROTECTED]
> > Technical and Network Services
> > Allegheny College
> > Meadville, PA 16335 814-332-2755
> >
> > ----- Original Message -----
> > From: "Aaron Smith" <[EMAIL PROTECTED]>
> > To: <[EMAIL PROTECTED]>
> > Sent: Wednesday, May 17, 2000 4:57 PM
> > Subject: Re: [perl-win32-gui] passing user input from a textfield to a scalar
> >
> > > Could someone expand on this, or point me to more information? If I try
> > > things this way (my $scalar=Window->text->Text();), I get the following error:
> > >
> > > Can't locate auto/Win32/GUI/Textfield=HASH(0x87651b8).al in @INC (@INC
> > > contains:
> > > c:/perl/lib/site C:/Perl/lib C:/Perl/site/lib .) at test.pl line 62
> > >
> > > And my line 62 reads:
> > >
> > > my $x = $Dialog->$FirstName->Text();
> > >
> > > Without the above line, the program runs fine.
> > >
> > > $FirstName is just an AddTextField. I assume my syntax is just wrong. But I
> > > don't know how. Can anyone shed some light, or point me to some reference
> > > that might shed some light? Thanks in advance.
> > >
> > > Aaron
> > >
> > >
> > > At Sunday 5/7/00 05:35 PM +0700, you wrote:
> > > >From: Chris Etzel
> > > > >How do I pass the input from the textfield to a scalar
> > > > my $scalar=Window->text->Text();
> > > >
> > > >should do it.
> > > >Please post in plain text
> > > >
> > > >Rob
> > > >http://bangkokwizard.com/
> > > >Learn what you know. Share what you don't.
> > >
> > >
> > > ----------
> > > Aaron Smith - [EMAIL PROTECTED]
> > > GW Micro, Inc.
> > > Support & Web Development
> > > WWW: http://www.gwmicro.com
> > > FTP: ftp://ftp.gwmicro.com
> > > Voice - 219-489-3671
> > > Fax - 219-489-2608
> > >
> > >
> > >
> > >
> > >
>
