From: NAHUM M. <mar...@re...> - 2002-01-11 10:52:43
|
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 ... |