diff options
| -rw-r--r-- | Perl/Zinc/Debug.pm | 35 |
1 files changed, 17 insertions, 18 deletions
diff --git a/Perl/Zinc/Debug.pm b/Perl/Zinc/Debug.pm index 49d1f1a..77ec2d5 100644 --- a/Perl/Zinc/Debug.pm +++ b/Perl/Zinc/Debug.pm @@ -1117,24 +1117,22 @@ sub showcoords { $lab->bind('<ButtonRelease-1>', sub { &hidecontour($zinc); }); $lab->bind('<ButtonRelease-2>', sub { &hidecontour($zinc); }); $lab->bind('<ButtonRelease-3>', sub { &hidecontour($zinc); }); - if (@{$contour[$i]} >= 10) { - my $lab1 = $coords_fm->Label(-text => scalar(@{$contour[$i]})." points", - -background => $bgcolor, - -relief => 'ridge')->grid(-row => $row+1, - -col => $col, - -ipadx => 5, - -ipady => 5, - -sticky => 'nswe'); - $lab1->bind('<1>', [\&showcontourpts, $zinc, 'black', $item, $contour[$i], - $deviceflag]); - $lab1->bind('<2>', [\&showcontourpts, $zinc, 'white', $item, $contour[$i], - $deviceflag]); - $lab1->bind('<3>', [\&showcontourpts, $zinc, 'red', $item, $contour[$i], - $deviceflag]); - $lab1->bind('<ButtonRelease-1>', sub { &hidecontour($zinc); }); - $lab1->bind('<ButtonRelease-2>', sub { &hidecontour($zinc); }); - $lab1->bind('<ButtonRelease-3>', sub { &hidecontour($zinc); }); - } + my $lab1 = $coords_fm->Label(-text => scalar(@{$contour[$i]})." points", + -background => $bgcolor, + -relief => 'ridge')->grid(-row => $row+1, + -col => $col, + -ipadx => 5, + -ipady => 5, + -sticky => 'nswe'); + $lab1->bind('<1>', [\&showcontourpts, $zinc, 'black', $item, $contour[$i], + $deviceflag]); + $lab1->bind('<2>', [\&showcontourpts, $zinc, 'white', $item, $contour[$i], + $deviceflag]); + $lab1->bind('<3>', [\&showcontourpts, $zinc, 'red', $item, $contour[$i], + $deviceflag]); + $lab1->bind('<ButtonRelease-1>', sub { &hidecontour($zinc); }); + $lab1->bind('<ButtonRelease-2>', sub { &hidecontour($zinc); }); + $lab1->bind('<ButtonRelease-3>', sub { &hidecontour($zinc); }); $col++; my @lab; for my $coords (@{$contour[$i]}) { @@ -1160,6 +1158,7 @@ sub showcoords { -col => $col++, -sticky => 'nswe')); } + $row++ if (@{$contour[$i]} < 10); $row++; my $j = 0; for (@lab) { |