From 40369046de5ed65212d926be164e3732fc196786 Mon Sep 17 00:00:00 2001
From: etienne
Date: Tue, 7 Oct 2003 13:00:57 +0000
Subject: *** empty log message ***

---
 Perl/Zinc/Debug.pm | 35 +++++++++++++++++------------------
 1 file changed, 17 insertions(+), 18 deletions(-)

(limited to 'Perl/Zinc')

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) {
-- 
cgit v1.1