Re: [perl-win32-gui-users] How do I recognize that the user has pressed enter inside a text box?

[Andrea M. <mae...@fr...>]

"Rogers, John" wrote:
> 
> Hi,
> If you specify, -multiline=>1, when you define the textfield, then the
> Change() event occurs when the user presses enter.
> 
> My idea is you could search the text string as each character is typed
> and match on "enter".
> something like this,
> 
> #untested code
> sub textfield_Change{my $rtest = 0;
>               my $input ='';
>               $input=$MW->tf->Text();
>               $rtest = $input=~s/\r\n/''/egsm;

better is (I hope):

        	$rtest = $input=~/\r\n$/;

:)

-- 
$_=q,6;-16;-1;-8;0;7;-13;-12;-9;-3;13#4A75737420616E6F74686572,,($_,$b)=
split?#?;@b=split?;?;map{$c.=$_,$d.=chr$b[$e++]+ord}split??,pack'H24',$b
;chop$d,print$c.chr(32).$d