[perl-win32-gui-users] Re: Textfield

[Mr. J. M. <je...@dr...>]

For single line input action, on a multiline textfield:

sub Input_Change {
    $_=$Window->Input->GetLineCount();
    if ($_>1) {
        $_=$Window->Input->GetLine($_-2);
       ##Do on enter
    }
}

Jerome McKean
Dream frequency; Imagination Realised
http://dreamfrequency.com



> From: larry moore <lgmj@ea...>
> RE: Textfield  
> 2002-05-14 06:52
>
> Upon a little closer look at the documentation for -multiline, it says the
> the return is \r\n, will this make a difference to my chomp?  Should I be
> removing \r\n and searching for both chars?
> 
> Thanks,
> 
> Larry
> 
> -----Original Message-----
> From: Sean Healy [mailto:jalopeura@ho...]
> Sent: Tuesday, May 14, 2002 9:44 AM
> To: lgmj@ea...; perl-win32-gui-users@li...
> Subject: Re: [perl-win32-gui-users] Textfield
> 
> 
> >Is there a way to make the return key register for a Textfield.  I am using
> >a sub Textfield_1_Change and would like to use the -text for this object to
> >be used in a search string when the user has hit the return key.  As a
> >first
> >step, I have been echoing each key press to the dos window, but the return
> >key seems to have no effect.
> 
> Here"s a workaround:
> Make the Textfield -multiline => 1.
> Use the _Change event:
>    Grab the text whenever the user changes it
>    Test the text against =~s/\n//g;
>    Return if this test fails
>    Restore the text
>    Do your search
> 
> I used to simply check that the text string ended with a \n and then chomp
> it and restore the text.  But if a user wants to redo the same search, he
> might just click anywhere in the textfield and hit enter, so your \n could
> be anywhere in the text string.
> 
> _________________________________________________________________
> MSN Photos is the easiest way to share and print your photos:
> http://photos.msn.com/support/worldwide.aspx
> 
>