From 81131ebd8e0322edeb167164d95ae75fe5f2416c Mon Sep 17 00:00:00 2001
From: etienne
Date: Thu, 11 Dec 2003 10:34:28 +0000
Subject: Debug use of the new 'device' tag in transform() to get device
 coordinates.

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

(limited to 'Perl/Zinc')

diff --git a/Perl/Zinc/Debug.pm b/Perl/Zinc/Debug.pm
index c2433bc..50255b8 100644
--- a/Perl/Zinc/Debug.pm
+++ b/Perl/Zinc/Debug.pm
@@ -1166,7 +1166,7 @@ sub showcoords {
 	    ## The first item of the list is not a reference, so the
 	    ## list is guarranted to be a flat list (x, y, ...)
 	    ## normaly of only one pair of (x y)
-	    @coords = $zinc->transform($item, 1, [@coords])
+	    @coords = $zinc->transform($item, 'device', [@coords])
 		if $deviceflag;
 	    for (my $j=0; $j < @coords; $j += 2) {
 		push(@{$contour[$i]}, [$coords[$j], $coords[$j+1]]);
@@ -1177,7 +1177,7 @@ sub showcoords {
 	    ## other elements of the list
 	    for (my $j=0; $j < @coords; $j ++) {
 		my @c = @{$coords[$j]};
-		@c = $zinc->transform($item, 1, [@c])
+		@c = $zinc->transform($item, 'device', [@c])
 		    if $deviceflag;
 		push(@{$contour[$i]}, [@c]);
 	    }
@@ -1359,7 +1359,7 @@ sub showgroupattributes {
     # device coords
     $fm->Label(-text => 'Device coords', -relief => 'ridge')
 	->grid(-row => $r, -col => 1, -ipady => 10, -ipadx => 5, -sticky => 'nswe');
-    @coords = $zinc->transform($item, 1, [@coords]);
+    @coords = $zinc->transform($item, 'device', [@coords]);
     if (@coords == 2) {
 	my $x0 = int($coords[0]);
 	my $y0 = int($coords[1]);
@@ -1523,7 +1523,7 @@ sub showattributes {
 		->grid(-row => $i, -col => 7, -sticky => 'nswe', -ipadx => 5);
 	}
 	# device coords
-	@coords = $zinc->transform($item, 1, [@coords]);
+	@coords = $zinc->transform($item, 'device', [@coords]);
 	if (!ref $coords[0]) {
 	    my $x0 = int($coords[0]);
 	    my $y0 = int($coords[1]);
-- 
cgit v1.1