diff options
| author | etienne | 2003-05-12 09:42:42 +0000 |
|---|---|---|
| committer | etienne | 2003-05-12 09:42:42 +0000 |
| commit | 91295391c5a74275858c621b1993bf80d08890ef (patch) | |
| tree | c566841b074e56f0a33baefcc784ae26f199d622 | |
| parent | dac6d8401eece043a7ab1e118a2d1f0d331cbf46 (diff) | |
| download | tkzinc-91295391c5a74275858c621b1993bf80d08890ef.zip tkzinc-91295391c5a74275858c621b1993bf80d08890ef.tar.gz tkzinc-91295391c5a74275858c621b1993bf80d08890ef.tar.bz2 tkzinc-91295391c5a74275858c621b1993bf80d08890ef.tar.xz | |
correction warning
| -rw-r--r-- | Perl/Zinc/Debug.pm | 13 |
1 files 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); |