"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
