Thread: [perl-win32-gui-users] win32gui bug , AddLabel ...?

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 422-6466

perl : 5.6.0 build 623 +win XP pro

hello ,

Why this one don't work :=20

-------------------------------------------------------------------------=
-------------------------------------------------------------------------=
---------
use Win32::GUI;

$main =3D Win32::GUI::Window->new(-name =3D> 'Main', -text =3D> 'Serveur =
d\'impression',
                                    -width =3D> 210, -height =3D> 150);

$main->AddLabel(
    -text =3D> "toto",
    );

$main->Show();
  =20
$return =3D $main->Dialog();

sub Window_Terminate {
        -1;
    }

-------------------------------------------------------------------------=
-------------------------------------------------------------------------=
---------

and this one work :=20

-------------------------------------------------------------------------=
-------------------------------------------------------------------------=
---------
use Win32::GUI;

$main =3D Win32::GUI::Window->new(-name =3D> 'Main', -text =3D> 'Serveur =
d\'impression',
                                    -width =3D> 210, -height =3D> 150);

$main->Show();
  =20
$return =3D $main->Dialog();

sub Window_Terminate {
        -1;
    }

-------------------------------------------------------------------------=
-------------------------------------------------------------------------=
---------

Thanks for help ...