[perl-win32-gui-users] Combobox

[Koul C. <chr...@fu...>]

Hi all,

    I dont have my items in the combobox. The code is here below. can
somebody
tell me where i am wrong?

****************************
use Win32::GUI;

$menu =3D Win32::GUI::MakeMenu(
  "&Fichier"   =3D> "Fichier",
  " > &Fermer" =3D> "Terminer",
  "&Aide"  =3D> "Informations",
  " > &Soft" =3D> "SoftAide",
);

$Frame =3D new Win32::GUI::Window(
  -top =3D> 100,
  -left =3D> 150,
  -width =3D> 500,
  -height =3D> 400,
        -name   =3D> "Frame",
     -title   =3D> "Module de demande",
  -menu =3D> $menu,
);

$QtyText =3D $Frame->AddTextfield(
       -name    =3D> "QtyText",
       -left    =3D> 300,
       -top     =3D> 74,
       -width   =3D> 31,
       -height  =3D> 20,
);

$Menubox1 =3D $Frame->AddCombobox(
        -name   =3D> "Menubox1",
       -left    =3D> 35,
       -top     =3D> 74,
       -width   =3D> 95,
       -height  =3D> 20,
        -style  =3D> WS_VISIBLE | 2 | WS_NOTIFY,
);
$Menubox2 =3D $Frame->AddCombobox(
     -name   =3D> "Menubox2",
      -left    =3D> 166,
     -top     =3D> 74,
      -width   =3D> 95,
     -height  =3D> 20,
     -style  =3D> WS_VISIBLE | 2 | WS_NOTIFY,
);
for $i ( 0 .. 5 ) {
  $Menubox1->InsertItem($i);
  $Menubox2->InsertItem($i*$i);
 }

$Frame->Show();

Win32::GUI::Dialog();

sub Terminer_Click {
         &Frame_Terminate;
    }
sub Frame_Terminate {
           -1;
    }
*********************************
--

Sincerely.
__________________

Christian Koul
Civil Engineer
Unit=E9 Statistique - Fucam