aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Perl/Zinc/Debug.pm35
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) {