sub show_choice{
    
    my $caller = $Tk::widget;
    
    print 'caller-> ',$caller,"\n";
    
    if( $caller =~ /^Tk::Menu.*/){    
       print "got: ", shift, "\n"
    }else{ return }

}