Select Code to Download

sub ComboBoxSelect {
  my $list = shift;
...
    $box{2}{'obj'}->configure(-choices => \@TestList1,-state => 'norma
+l');
  }        
}