[perl-win32-gui-users] MaxLength and ReadOnly seems dont work for RichEdit

[du4mi]

Hallo All,

from C:/Perl/html/lib/Win32/GUI/methods.html:

>MaxLength( [CHARS] )
>Limits the number of characters that the Textfield accept to CHARS,
>or returns the current limit if no argument is given. ....
>Applies to: _RichEdit_, Textfield

and:

>ReadOnly( [FLAG] )
>Gets or sets the readonly flag on the control.
>Applies to: _RichEdit_, Textfield

it works with Textfield, but not with RichEdit.

#!perl -w
use strict;
use Win32::GUI;
my $Window = new Win32::GUI::Window(
    -name => "Window",
    -size => [100,100],
    );
#my $Field = $Window->AddTextfield(
my $Field = $Window->AddRichEdit(
    -text =>"foo",
    -name =>"bar",
    -pos =>[10,10],
    -size =>[50,20],
    );
print $Field->MaxLength();
$Field->ReadOnly(1);
$Window->Show();
Win32::GUI::Dialog();


AS Perl 5.8.2
Win32-GUI-0.0.670-Dev-PPM-58




Thanks in advance.

--
Pavel