my $id = $sel || (@ids && $ids[0]) || '';
  
  my $IDText = $dlg->add (
        'JComboBox',
        -options => \@ids,
        -mode => 'readonly',
        -selectcommand => [\&changeEditPlayer, \$id],
        -validate => 'match',
        -textvariable => \$id,
        );
    
#    $IDText->configure (-options => \@ids);
    $IDText->setSelected ($id);
    return if $dlg->Show (-global) ne 'OK';
}