- Timestamp:
- Jan 4, 2018, 3:23:25 PM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/klask
r377 r378 3142 3142 } 3143 3143 } 3144 @colrange = map {scalar $tb_parent->colrange($_)} (0 .. 4); # force scaler context3145 $tb_parent->add(map {' ' x $_} reverse @colrange); # add empty line to force symetric table output3144 my @colrange = map {scalar $tb_parent->colrange($_)} (0 .. 4); # force scaler context 3145 $tb_parent->add(map {' ' x $_} reverse @colrange); # add empty line to force symetric table output 3146 3146 print $tb_parent->title(); 3147 3147 print $tb_parent->rule('-'); 3148 print $tb_parent->body(0, $tb_parent->body_height() - 1); # remove last fake line3148 print $tb_parent->body(0, $tb_parent->body_height() - 1); # remove last fake line 3149 3149 $tb_parent->clear; 3150 3150 }
Note: See TracChangeset
for help on using the changeset viewer.