diff options
Diffstat (limited to 'Perl/Zinc')
-rw-r--r-- | Perl/Zinc/Debug.pm | 12 |
1 files 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]); |