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
> >
> >
> >
> >
> >
begin:vcard
n:George;Anthony
tel;pager:(231) 315-4709
tel;cell:(231) 730-2863
tel;fax:(231) 720-1681
tel;work:(231) 720-1481
x-mozilla-html:TRUE
url:http://www.emsts.com
org:EMS Technical Services
adr:;;965 Fork;Muskegon;MI;49442;USA
version:2.1
email;internet:[EMAIL PROTECTED]
title:Systems Engineer
fn:Anthony C. George
end:vcard
