perl-win32-gui-users

[perl-win32-gui-users] Limit size of text field

[Bob S. <bs...@Pr...>]

Hi all,

I am using this to create a text field:

# Create text field for Computer Name entry
$Win->AddTextfield(
       -MaxLength    => 15,
       -text    => "",
       -name    => "Host_Name",
       -left    => 285,
       -top     => 243,
       -tabstop => 1,
       -width   => 100,
       -height  => 20,
      );

I found the MaxLength option in the docs but it does not seem to limit the
field. What I want is to be able to have the field restricted to 15
characters. So no more characters could be typed in. Is this possible? Have
I just used the wrong syntax? Thanks for any help.

Bob

Re: [perl-win32-gui-users] Limit size of text field

[Aldo C. <da...@pe...>]

Bob Stango wrote:
> I found the MaxLength option in the docs but it does not seem
> to limit the field. What I want is to be able to have the field
> restricted to 15 characters. So no more characters could be
> typed in. Is this possible? Have I just used the wrong syntax?
> Thanks for any help.

MaxLength is a METHOD, not an OPTION. change your code to this:

    $Win->AddTextfield(
        -text    => "",
        -name    => "Host_Name",
        -pos    =>  [ 285, 243 ],
        -size    => [ 100, 20 ],
        -tabstop => 1,
    );
    $Win->Host_Name->MaxLength( 15 );

cheers,
Aldo

__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;

Re: [perl-win32-gui-users] Limit size of text field

[Bob S. <bs...@Pr...>]

Aldo Calpini wrote:

> Bob Stango wrote:
> > I found the MaxLength option in the docs but it does not seem
> > to limit the field. What I want is to be able to have the field
> > restricted to 15 characters. So no more characters could be
> > typed in. Is this possible? Have I just used the wrong syntax?
> > Thanks for any help.
>
> MaxLength is a METHOD, not an OPTION. change your code to this:
>
>     $Win->AddTextfield(
>         -text    => "",
>         -name    => "Host_Name",
>         -pos    =>  [ 285, 243 ],
>         -size    => [ 100, 20 ],
>         -tabstop => 1,
>     );
>     $Win->Host_Name->MaxLength( 15 );
>
> cheers,
> Aldo
>
> __END__
> $_=q,just perl,,s, , another ,,s,$, hacker,,print;
>

Thanks Aldo. Just more stuff I have to learn about.
:-)