I suspect you need to hack Tk, use some debugging artifact
or find another definition of your problem.

Do to the diverse nature of Tk widgets, there is not
going to be one SUPER class to alter.

User level coding of Tk seems to only offer:

$widget-bind( Tk::Button, 
        "<Button-1>", sub{&handle_event});
[download]

which will alter the specified binding for all
instances of Tk::Button.