diff options
Diffstat (limited to 'Perl/Zinc')
-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); |