use Tk::JComboBox;

my $sMain;
    
$sMain = MainWindow->new();
$sMain->minsize(qw(700 400));

my $sBox = $sMain->JComboBox(-entrybackground => 'white',
    -choices => [qw/one two three four/],
     -mode => 'editable',
     -relief => 'sunken',
     -entrywidth => 70 ,
  )->grid(
   -row    => 1,
   -column => 1,
   -sticky => 'n',
  );

MainLoop;