From 04c4fbe731eb6322c2434f135dfcd843135b3d07 Mon Sep 17 00:00:00 2001
From: mertz
Date: Mon, 2 Dec 2002 16:31:32 +0000
Subject: quelques corrections dans ZincDebug, en utilisant la m�thode coords0.
 Attention, il faut zinc.pm Revision >= 1.17

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

diff --git a/Perl/Zinc/Debug.pm b/Perl/Zinc/Debug.pm
index 6f7f75b..244e6dd 100644
--- a/Perl/Zinc/Debug.pm
+++ b/Perl/Zinc/Debug.pm
@@ -475,7 +475,7 @@ sub stoprectangle {
     return unless ($zinc->find('withtag', $rectangle_id));
 
     my @atomicgroups = &unsetAtomicity;
-    my @coords = $zinc->coords($rectangle_id);
+    my @coords = $zinc->coords0($rectangle_id);
     my @items;
     for my $item ($zinc->find($searchtype, @coords, 1, 1)) {
 	push (@items, $item) if $item != $rectangle_id and
@@ -739,7 +739,7 @@ sub showcoords {
     my $i = 0;
     while ( 1 ) {
 	my @coords;
-	eval '@coords = $zinc->coords($item, $i)';
+	eval '@coords = $zinc->coords0($item, $i)';
 	last unless  @coords;
 	if ($deviceflag) {
 	    @coords = $zinc->transform(scalar $zinc->group($item), 1,
@@ -814,7 +814,7 @@ sub showgroupattributes {
 	       -columnspan => 2);	# coords
     $fm->Label(-text => 'Coords', -relief => 'ridge')
 	->grid(-row => $r, -col => 1, -ipady => 10, -ipadx => 5, -sticky => 'nswe');
-    my @coords = $zinc->coords($item);
+    my @coords = $zinc->coords0($item);
     my $coords;
     if (@coords == 2) {
 	my $x0 = int($coords[0]);
@@ -1026,7 +1026,7 @@ sub itemisoutside {
 sub surrounditem {
     my ($zinc, $item, $level) = @_;
     $zinc->remove("zincdebug");
-    my @coords = $zinc->coords($item);
+    my @coords = $zinc->coords0($item);
     # get item ancestors
     my @itemancestors = reverse($zinc->find('ancestors', $item));
     # skip group 1
@@ -1036,7 +1036,7 @@ sub surrounditem {
     for my $g (@itemancestors) {
 	my $gc = $zinc->add('group', $topgroup, -tags => ['zincdebug']);
 	$zinc->tsave($g, "mytrans");
-	my @c = $zinc->coords($g);
+	my @c = $zinc->coords0($g);
 	$zinc->trestore($gc, "mytrans");
 	$zinc->coords($gc, [@c]);
 	$zinc->tdelete("mytrans");
@@ -1164,7 +1164,7 @@ sub showattributes {
 		   -relief => 'ridge')
 	    ->grid(-row => $i, -col => 6, -sticky => 'nswe', -ipadx => 5);
 	# coords
-	my @coords = $zinc->coords($item);
+	my @coords = $zinc->coords0($item);
 	my $coords;
 	if (@coords == 2) {
 	    my $x0 = int($coords[0]);
-- 
cgit v1.1