From a0423a5c6e7ae16023d22892ce2124989745c7a1 Mon Sep 17 00:00:00 2001 From: "Jeffrey H. Kingston" Date: Tue, 14 Sep 2010 19:36:16 +0000 Subject: Lout 3.18 tag. git-svn-id: http://svn.savannah.nongnu.org/svn/lout/tags/3.18@6 9365b830-b601-4143-9ba8-b4a8e2c3339c --- include/tblf | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'include/tblf') 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 } } } -- cgit