From 998d2a9781f76201f85f5924d9236a2cf6736840 Mon Sep 17 00:00:00 2001
From: etienne
Date: Fri, 7 Mar 2003 16:22:40 +0000
Subject: *** empty log message ***

---
 Perl/Zinc/Debug.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'Perl')

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;
-- 
cgit v1.1