diff options
author | etienne | 2003-06-25 12:25:07 +0000 |
---|---|---|
committer | etienne | 2003-06-25 12:25:07 +0000 |
commit | a2550a34798d89480f88c3bed5d05148ab63ca5d (patch) | |
tree | 1c20b91e0e7851d7d923b3c44d02e92d5efb9f39 /Perl | |
parent | 9d7ca6d6593fb811f7e44449ec03c3d2c9035827 (diff) | |
download | tkzinc-a2550a34798d89480f88c3bed5d05148ab63ca5d.zip tkzinc-a2550a34798d89480f88c3bed5d05148ab63ca5d.tar.gz tkzinc-a2550a34798d89480f88c3bed5d05148ab63ca5d.tar.bz2 tkzinc-a2550a34798d89480f88c3bed5d05148ab63ca5d.tar.xz |
Affichage correct des coordonn�es d'un item triangles.
Diffstat (limited to 'Perl')
-rw-r--r-- | Perl/Zinc/Debug.pm | 10 |
1 files changed, 6 insertions, 4 deletions
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); |