From 91295391c5a74275858c621b1993bf80d08890ef Mon Sep 17 00:00:00 2001
From: etienne
Date: Mon, 12 May 2003 09:42:42 +0000
Subject: correction warning

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

diff --git a/Perl/Zinc/Debug.pm b/Perl/Zinc/Debug.pm
index 62306ae..439290a 100644
--- a/Perl/Zinc/Debug.pm
+++ b/Perl/Zinc/Debug.pm
@@ -52,7 +52,7 @@ my %cmdoptions;
 my $initobjectfunction;
 
 
-sub BEGIN {
+BEGIN {
     # test if ZincDebug is loaded using the -M perl option
     $preload = 1 if (caller(2))[2] == 0;
     return unless $preload;
@@ -964,15 +964,15 @@ sub showgroupattributes {
     $btn->bind("<ButtonRelease-1>", [\&hidebbox, $zinc]);
 
     # transformations
-    my $btn = $fm_top->Button(-height => 2,
+    my $trbtn = $fm_top->Button(-height => 2,
 			  -text => "treset")
 	->pack(-side => 'left', -fill => 'both', -expand => 1);
     if ($item == 1) {
-	$btn->configure(-state => 'disabled');
+	$trbtn->configure(-state => 'disabled');
     } else {
-	$btn->bind('<1>', [\&showtransfo, $zinc, $item, 0]);
-	$btn->bind('<2>', [\&showtransfo, $zinc, $item, 1]);
-	$btn->bind('<3>', [\&showtransfo, $zinc, $item, 2]);
+	$trbtn->bind('<1>', [\&showtransfo, $zinc, $item, 0]);
+	$trbtn->bind('<2>', [\&showtransfo, $zinc, $item, 1]);
+	$trbtn->bind('<3>', [\&showtransfo, $zinc, $item, 2]);
     }
     
     # parent group
@@ -1157,7 +1157,6 @@ sub highlightitem {
     my ($btn, $zinc, $item, $level) = @_;
     #print "highlightitem\n";
     return if $showitemflag or $item == 1;
-    print "highlightitem 2\n";
     $showitemflag = 1;
     
     &surrounditem($zinc, $item, $level);
-- 
cgit v1.1