Re^2: Setting options in Tk::Optionmenu without the callback?

This is clearly The Way It's Supposed To Be Done™. In fact, I can now make a really compact (and fairly coherent) idiom:

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

Thank you -- knowing how to identify the caller like that is likely to simplify many things.

Comment on Re^2: Setting options in Tk::Optionmenu without the callback? Download Code