From a10fdf00213ca14ff4bc02b3425436a192f74773 Mon Sep 17 00:00:00 2001
From: etienne
Date: Fri, 7 Mar 2003 14:21:02 +0000
Subject: ZincDebug.pm

---
 Perl/Zinc/Debug.pm | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

(limited to 'Perl')

diff --git a/Perl/Zinc/Debug.pm b/Perl/Zinc/Debug.pm
index ce853a9..bc3dcfc 100644
--- a/Perl/Zinc/Debug.pm
+++ b/Perl/Zinc/Debug.pm
@@ -51,7 +51,7 @@ my %focus;
 my %instances;
 my @instances;
 my %cmdoptions;
-
+my $initobjectfunction;
 sub BEGIN {
     # test if ZincDebug is loaded using the -M perl option
     $preload = 1 if (caller(2))[2] == 0;
@@ -63,6 +63,9 @@ sub BEGIN {
 	       'color=s', 'enclosedModBtn=s', 'overlapModBtn=s', 'searchKey=s',
 	       'skey=s', 'verbosity=s', 'basename=s',
 	       );
+    # save current Tk::Zinc::InitObject function; it will be invoked in
+    # overloaded one (see below)
+    $initobjectfunction = \&Tk::Zinc::InitObject;
 	
 }
 
@@ -70,6 +73,9 @@ sub BEGIN {
 # Note that created bindings might be overloaded by the application.
 sub Tk::Zinc::InitObject {
     Tk::Widget::InitObject(@_);
+    # invoke function possibly overloaded in other modules
+    &$initobjectfunction;
+    #print "***** ZincDebug Tk::Zinc::InitObject zinc=$_[0]\n";
     return unless $preload;
     my $zinc = $_[0];
     my @options = ();
@@ -80,7 +86,7 @@ sub Tk::Zinc::InitObject {
 	if $cmdoptions{optionsToDisplay};
     push (@options, -optionsFormat => $cmdoptions{optionsFormat})
 	if $cmdoptions{optionsFormat};
-      print "options=@options\n";
+      #print "options=@options\n";
     &tree($zinc, @options);
     @options = ();
     push (@options, -color => $cmdoptions{color}) if $cmdoptions{color};
-- 
cgit v1.1