[perl-win32-gui-users] Combobox

[Koul Christian]

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 = Win32::GUI::MakeMenu(
  "&Fichier"   => "Fichier",
  " > &Fermer" => "Terminer",
  "&Aide"  => "Informations",
  " > &Soft" => "SoftAide",
);

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

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

$Menubox1 = $Frame->AddCombobox(
        -name   => "Menubox1",
       -left    => 35,
       -top     => 74,
       -width   => 95,
       -height  => 20,
        -style  => WS_VISIBLE | 2 | WS_NOTIFY,
);
$Menubox2 = $Frame->AddCombobox(
     -name   => "Menubox2",
      -left    => 166,
     -top     => 74,
      -width   => 95,
     -height  => 20,
     -style  => 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é Statistique - Fucam