diff options
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); |