From 026b202a29be068eada5097a73aa0501ace517d0 Mon Sep 17 00:00:00 2001
From: etienne
Date: Tue, 11 Mar 2003 15:02:16 +0000
Subject: Possibilit� de param�trer les fonctions ZincDebug sur la ligne de
 commande

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

(limited to 'Perl/Zinc')

diff --git a/Perl/Zinc/Debug.pm b/Perl/Zinc/Debug.pm
index 84cb66e..70dc1dd 100644
--- a/Perl/Zinc/Debug.pm
+++ b/Perl/Zinc/Debug.pm
@@ -59,7 +59,7 @@ sub BEGIN {
     return unless $preload;
     # parse ZincDebug options
     require Getopt::Long;
-    #Getopt::Long::Configure('pass_through');
+    Getopt::Long::Configure('pass_through');
     Getopt::Long::GetOptions(\%cmdoptions,
 	       'itemModBtn=s', 'tkey=s', 'optionsToDisplay=s', 'optionsFormat=s',
 	       'color=s', 'enclosedModBtn=s', 'overlapModBtn=s', 'searchKey=s',
@@ -68,7 +68,6 @@ 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 = *ZincDebug::InitObject;
 	
 }
 
@@ -76,7 +75,7 @@ sub BEGIN {
 # Note that created bindings might be overloaded by the application.
 sub Tk::Zinc::InitObject {
     Tk::Widget::InitObject(@_);
-    print "***** ZincDebug Tk::Zinc::InitObject\n";
+    print "ZincDebug is ON\n";
     # invoke function possibly overloaded in other modules
     &$initobjectfunction(@_) if $initobjectfunction;
     return unless $preload;
@@ -1962,7 +1961,7 @@ Daniel Etienne <etienne@cena.fr>
     
 =head1 HISTORY
 
-Feb 6 2003 : ZincDebug can manage several instances of Zinc widget.
+Mar 11 2003 : ZincDebug can manage several instances of Zinc widget. Options of ZincDebug functions can be set on the command line.
 
 Jan 20 2003 : item's attributes can be edited.
 
-- 
cgit v1.1