sub my_optionmenu_callback
{
    return unless ( $Tk::widget =~ /^Tk::Menu/ );
    # do stuff...
}