aboutsummaryrefslogtreecommitdiff
path: root/Perl/Zinc/Debug.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Perl/Zinc/Debug.pm')
-rw-r--r--Perl/Zinc/Debug.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/Perl/Zinc/Debug.pm b/Perl/Zinc/Debug.pm
index 207f5b6..271dcd3 100644
--- a/Perl/Zinc/Debug.pm
+++ b/Perl/Zinc/Debug.pm
@@ -1075,7 +1075,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(scalar $zinc->group($item), 1, [@coords])
+ @coords = $zinc->transform($item, 1, [@coords])
if $deviceflag;
for (my $j=0; $j < @coords; $j += 2) {
push(@{$contour[$i]}, [$coords[$j], $coords[$j+1]]);
@@ -1086,7 +1086,7 @@ sub showcoords {
## other elements of the list
for (my $j=0; $j < @coords; $j ++) {
my @c = @{$coords[$j]};
- @c = $zinc->transform(scalar $zinc->group($item), 1, [@c])
+ @c = $zinc->transform($item, 1, [@c])
if $deviceflag;
push(@{$contour[$i]}, [@c]);
}
@@ -1229,7 +1229,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(scalar $zinc->group($item), 1, [@coords]);
+ @coords = $zinc->transform($item, 1, [@coords]);
if (@coords == 2) {
my $x0 = int($coords[0]);
my $y0 = int($coords[1]);
@@ -1721,7 +1721,7 @@ sub showattributes {
->grid(-row => $i, -col => 7, -sticky => 'nswe', -ipadx => 5);
}
# device coords
- @coords = $zinc->transform(scalar $zinc->group($item), 1, [@coords]);
+ @coords = $zinc->transform($item, 1, [@coords]);
if (!ref $coords[0]) {
my $x0 = int($coords[0]);
my $y0 = int($coords[1]);