Title: RE: Win32::GUI question

Try creating it as a window and add this option:

        -dialogui => 1,

and see if that gives the functionality you're looking for.

-Pete

> -----Original Message-----
> From: Hawley, Eric [mailto:[EMAIL PROTECTED]]
> Sent: Tuesday, November 19, 2002 16:18
> To: 'Joseph Youngquist'; Hawley, Eric; 'Perl-Win32 (E-mail)'
> Subject: RE: Win32::GUI question
>
>
> No I dont have a button set as the default.  I tried that
> just to see if for
> some wierd reason my Enter key was not working in that window
> but when I set
> the button as default the Enter key worked fine, left me kind
> of confused.
> Its like when I press the Enter key, the key doesnt work at
> all but works
> fine anywhere else.
>
> Eric
>
> -----Original Message-----
> From: Joseph Youngquist [mailto:[EMAIL PROTECTED]]
> Sent: Tuesday, November 19, 2002 4:12 PM
> To: 'Hawley, Eric'; 'Perl-Win32 (E-mail)'
> Subject: RE: Win32::GUI question
>
>
> do you have a button set as the default?  If so, then the
> enter key will
> "click" that button regardless of which control has the
> focus.  Other than
> that, I can't think of anything off the top of my head to look for.
>
>
> hth,
>
> Joe
>
> -----Original Message-----
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED]]On Behalf Of
> Hawley, Eric
> Sent: Tuesday, November 19, 2002 2:22 PM
> To: Perl-Win32 (E-mail)
> Subject: Win32::GUI question
>
>
> Here is my problem. I have created a Window box with three
> text fields which
> a user can input the information they need. I would like to
> have them be
> able to tab between fields instead of using a mouse.  I found
> out that you
> should use DialogBox to do this so I did.  The tabbing worked with the
> exception of back-tabbing (Shift + Tab, no big deal though )
> but in the
> multiline field, the return key would not work in order to
> start a new line.
> If I just create a standard window using new
> Win32::GUI::Window it allows me
> to use the return key to start a new line but doesn't allow
> tabbing.  Any
> suggestions on what I might be doing wrong here. Code is listed below.
>
>     $Data = "" Win32::GUI::DialogBox(              <-- This
> line could also
> be Window instead of DialogBox
>                                     -name   => "DataWindow",
>                                     -top    => ($screen_width -
> $minwidth)/2,
>                                     -left   => ($screen_height -
> $minheight)/2,
>                                     -width  => $minwidth,
>                                     -height => $minheight,
>                                     -title  => "New Project",
>                                     -menu   => $DataMenu,
>                                     -tabstop => 1,
>                                    );
>     #single line field
>     $Pname_input = $Data->AddTextfield(
>                                      -left    => 20,
>                                      -top     => 10,
>                                      -width   => 150,
>                                      -height  => 22,
>                                      -tabstop => 1,
>                                      -prompt => "Project Name:   ",
>                                     );
>     #single line field
>     $Mname_input = $Data->AddTextfield(
>                                      -left    => 20,
>                                      -top     => 40,
>                                      -width   => 160,
>                                      -height  => 22,
>                                      -tabstop => 1,
>                                      -prompt => "Member Names:",
>                                     );
>
>    #multiline field which does not allow the use of the
> return key to start
> a new line under DialogBox
>    #but does allow it under Window
>     $Des_input = $Data->AddTextfield(
>                                    -left    => 20,
>                                    -top     => 70,
>                                    -width   => 205,
>                                    -height  => 80,
>                                    -tabstop => 1,
>                                    -multiline => 1,
>                                    -prompt => "Description:       ",
>                                   );
>
> Thanks
> Eric
>
> *     Eric Hawley, Network Support Programmer
> > *   Office of Information Technology
> > *   Ohio Department of Natural Resources
> > *   Phone:  (614) 265-1028
> > *   Mailto:[EMAIL PROTECTED]
> >
> >
> _______________________________________________
> Perl-Win32-Users mailing list
> [EMAIL PROTECTED]
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
> _______________________________________________
> Perl-Win32-Users mailing list
> [EMAIL PROTECTED]
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>

Reply via email to