my $CB = $mw->ComboBox( -textvariable=>\my $combobox, -values => "SF SD LA All")->pack(-side=>'left', -anchor=>'n');
$CB->bind("<<ComboboxSelected>>", {scriptCombo() });
$CB->grid( -row => 8, -column => 1, -columnspan => 1 );
#$CB->cget( -values);
$CB->cget(-command);
$CB->configure;

my $lbox = $mw->ListBox( -height => 5);
$lbox->bind("<<ListboxSelect>>", sub {scriptCombo()});
$lbox->bind("<Double-1>", sub {scriptCombo()});
$mw->bind("<Return>", sub {scriptCombo()});
$lbox->grid( -row => 8, -column => 2, -columnspan => 1 );