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

[NAHUM Marc]

perl : 5.6.0 build 623 +win XP pro

hello ,

Why this one don't work : 

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

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

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

$main->Show();
   
$return = $main->Dialog();


sub Window_Terminate {
        -1;
    }

-----------------------------------------------------------------------------------------------------------------------------------------------------------

and this one work : 

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

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

$main->Show();
   
$return = $main->Dialog();


sub Window_Terminate {
        -1;
    }

-----------------------------------------------------------------------------------------------------------------------------------------------------------


Thanks for help ...