Re: [perl-win32-gui] passing user input from a textfield to a scalar

[Jonathan Southwick]

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
> 
> 
> 
> 
>