diff options
| author | etienne | 2003-03-11 15:02:16 +0000 |
|---|---|---|
| committer | etienne | 2003-03-11 15:02:16 +0000 |
| commit | 026b202a29be068eada5097a73aa0501ace517d0 (patch) | |
| tree | dea8fc686a45039f4e0037c15f516599fa88d807 /Perl | |
| parent | 488145f34eb3928c2993b31188d08259252645e8 (diff) | |
| download | tkzinc-026b202a29be068eada5097a73aa0501ace517d0.zip tkzinc-026b202a29be068eada5097a73aa0501ace517d0.tar.gz tkzinc-026b202a29be068eada5097a73aa0501ace517d0.tar.bz2 tkzinc-026b202a29be068eada5097a73aa0501ace517d0.tar.xz | |
Possibilit� de param�trer les fonctions ZincDebug sur la ligne de commande
Diffstat (limited to 'Perl')
| -rw-r--r-- | Perl/Zinc/Debug.pm | 7 |
1 files changed, 3 insertions, 4 deletions
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. |