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 ...