sub ComboBoxSelect {
  my $list = shift;
  print "Browsing $list\n";
  if ($list == 1) {
    my @TestList1 = ('a','b','cde');
    $box{2}{'obj'}->configure(-choices => \@TestList1,-state => 'normal');
  }        
}