From a2550a34798d89480f88c3bed5d05148ab63ca5d Mon Sep 17 00:00:00 2001
From: etienne
Date: Wed, 25 Jun 2003 12:25:07 +0000
Subject: Affichage correct des coordonn�es d'un item triangles.

---
 Perl/Zinc/Debug.pm | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'Perl/Zinc')

diff --git a/Perl/Zinc/Debug.pm b/Perl/Zinc/Debug.pm
index 5bc7caa..6ab5d7b 100644
--- a/Perl/Zinc/Debug.pm
+++ b/Perl/Zinc/Debug.pm
@@ -749,12 +749,14 @@ sub scangroup {
 	if ($Type eq "Group") {
 	    $tree->add($path.".".$item,
 		       -text => "$Type($item)$info",
-		       -style => 'group');
+		       -style => 'group',
+		       );
 	    &scangroup($zinc, $tree, $item, $path.".".$item, $format, @optionstodisplay);
 	} else {
 	    $tree->add($path.".".$item,
 		       -text => "$Type($item)$info",
-		       -style => 'item');
+		       -style => 'item',
+		       );
 	}
     }
 
@@ -1708,7 +1710,7 @@ sub showattributes {
 		$coords = "C0=($x0, $y0), ..., C".$n."=($xn, $yn)";
 	    }
 	}
-	if ($type eq 'curve' and @coords > 2) {
+	if (@coords > 2) {
 	    $fm->Button(-text => $coords,
 			-command => [\&showcoords, $zinc, $item])
 		->grid(-row => $i, -col => 7, -sticky => 'nswe', -ipadx => 5);
@@ -1736,7 +1738,7 @@ sub showattributes {
 		$coords = "C0=($x0, $y0), ..., C".$n."=($xn, $yn)";
 	    }
 	}
-	if ($type eq 'curve' and @coords > 2) {
+	if (@coords > 2) {
 	    $fm->Button(-text => $coords,
 			-command => [\&showdevicecoords, $zinc, $item])
 		->grid(-row => $i, -col => 8, -sticky => 'nswe', -ipadx => 5);
-- 
cgit v1.1