aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Perl/Zinc/Debug.pm6
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;