aboutsummaryrefslogtreecommitdiff
path: root/Perl
diff options
context:
space:
mode:
Diffstat (limited to 'Perl')
-rw-r--r--Perl/Zinc/Debug.pm10
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);