diff options
| -rw-r--r-- | Perl/Zinc/Debug.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Perl/Zinc/Debug.pm b/Perl/Zinc/Debug.pm index e346f48..84cb66e 100644 --- a/Perl/Zinc/Debug.pm +++ b/Perl/Zinc/Debug.pm @@ -68,15 +68,15 @@ sub BEGIN { # save current Tk::Zinc::InitObject function; it will be invoked in # overloaded one (see below) $initobjectfunction = Tk::Zinc->can('InitObject'); - *Tk::Zinc::InitObject = *InitObject; + #*Tk::Zinc::InitObject = *ZincDebug::InitObject; } # Hack to capture the instance of zinc. ZincDebug functions are invoked here. # Note that created bindings might be overloaded by the application. -sub InitObject { +sub Tk::Zinc::InitObject { Tk::Widget::InitObject(@_); - #print "Tk::Zinc::InitObject\n"; + print "***** ZincDebug Tk::Zinc::InitObject\n"; # invoke function possibly overloaded in other modules &$initobjectfunction(@_) if $initobjectfunction; return unless $preload; |