From f7430075a5d36ba3731ab77b157f6df498ef17e8 Mon Sep 17 00:00:00 2001 From: Marius Date: Thu, 16 Jun 2011 14:00:12 +0300 Subject: beta 2011.06.16 12:50 --- tex/context/base/strc-flt.mkiv | 20 +++++++++++++++----- 1 file changed, 15 insertions(+), 5 deletions(-) (limited to 'tex/context/base/strc-flt.mkiv') diff --git a/tex/context/base/strc-flt.mkiv b/tex/context/base/strc-flt.mkiv index 9d0b5b0d7..4d3689b3c 100644 --- a/tex/context/base/strc-flt.mkiv +++ b/tex/context/base/strc-flt.mkiv @@ -1233,12 +1233,22 @@ \ifdefined\moveboxontogrid\else \let\movecaptionontogrid\gobblethreearguments \fi +% \def\locatefloatbox +% {\alignstrutmode\zerocount +% \shiftalignedline +% {\floatparameter\c!leftmargin }{\floatparameter\c!rightmargin}% +% {\floatparameter\c!innermargin}{\floatparameter\c!outermargin}% +% \alignedline{\floatparameter\c!location}\v!middle} +% +% A quick hack by WS: + \def\locatefloatbox - {\alignstrutmode\zerocount - \shiftalignedline - {\floatparameter\c!leftmargin }{\floatparameter\c!rightmargin}% - {\floatparameter\c!innermargin}{\floatparameter\c!outermargin}% - \alignedline{\floatparameter\c!location}\v!middle} + {\alignstrutmode\zerocount + \doifnotcommon{\floatcaptionparameter\c!location}{\v!outermargin,\v!innermargin,\v!leftmargin,\v!rightmargin} + {\shiftalignedline + {\floatparameter\c!leftmargin }{\floatparameter\c!rightmargin}% + {\floatparameter\c!innermargin}{\floatparameter\c!outermargin}}% + \alignedline{\floatparameter\c!location}\v!middle} \def\locatecaptionbox {\alignstrutmode\zerocount -- cgit v1.2.3