sub defineDBFieldsOptionMenu {
    my ($top, $bindSelectedValue, $bindSelectedTextlabel, $optionSet) = @_;

    my $opt = $top->Optionmenu(
        -options => $optionSet,
        -command => sub {
            print "got: ", shift, "\n", "val: $bindSelectedValue\n";
            print "hashval: " . $obj->{'entryFrame'}->{'feld'}->{'bindSelectedValue'} . "\n";
        },
        -variable => \$bindSelectedValue,
        -textvariable => \$bindSelectedTextlabel
    );
    
    return $opt;
} # /defineDBFieldsOptionMenu