diff options
| author | Jeffrey H. Kingston <jeff@it.usyd.edu.au> | 2010-09-14 19:36:16 +0000 |
|---|---|---|
| committer | Jeffrey H. Kingston <jeff@it.usyd.edu.au> | 2010-09-14 19:36:16 +0000 |
| commit | a0423a5c6e7ae16023d22892ce2124989745c7a1 (patch) | |
| tree | 26e8947ef0a82e8150e46ebd0b257ec5cd13c0ed /include/tblf | |
| parent | 71bdb35d52747e6d7d9f55df4524d57c2966be94 (diff) | |
| download | lout-3.18.tar.gz | |
Lout 3.18 tag.3.18
git-svn-id: http://svn.savannah.nongnu.org/svn/lout/tags/3.18@6 9365b830-b601-4143-9ba8-b4a8e2c3339c
Diffstat (limited to 'include/tblf')
| -rw-r--r-- | include/tblf | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/include/tblf b/include/tblf index c8f0019..9a2da6e 100644 --- a/include/tblf +++ b/include/tblf @@ -1383,19 +1383,23 @@ def @TblSetup ctr @Yield @OneCol { |"0.5rt" x } right @Yield @OneCol { |"1.0rt" x } mctr @Yield @OneCol { |"0.5bx" x } - "" @Yield @OneCol x + align @Yield @OneCol x else @Yield @OneCol { |i x } } } def @VIndent right x { + # note: the default value "" gives top alignment, + # but that is not a problem because we are by + # default putting in a vertical strut + iv @Case { top @Yield @OneRow { / x } ctr @Yield @OneRow { /"0.5rt" x } foot @Yield @OneRow { /"1.0rt" x } mctr @Yield @OneRow { /"0.5bx" x } - "" @Yield @OneRow x + align @Yield @OneRow x else @Yield @OneRow { /iv x } } } |