Hi,
shouldn't this use the leftoffset parameter (line 976):
\permanent\protected\def\page_mvl_set_area#1#2#3#4#5#6#7#8% can be optimized
{\begingroup
\cdef\currentcolumnsetarea{#2}%
\setcolumnsetareaparameter\c!width {#5\scaledpoint}%
\setcolumnsetareaparameter\c!height{#6\scaledpoint}%
\setbox\nextbox\hpack\bgroup\inheritedcolumnsetareaframed\bgroup
\usecolumnsetareastyleandcolor\c!style\c!color
\ignorespaces
\columnsetareaparameter\c!text
\egroup\egroup
%
\scratchdimen#8\scaledpoint
\ifdim\scratchdimen>\zeropoint
\setbox\scratchbox\vbox\bgroup
\clip
[ \c!offset=\columnsetareaparameter\c!clipoffset,%
\c!rightoffset=\columnsetareaparameter\c!rightoffset,%
\c!width=\scratchdimen,%
% \c!height=
]%
{\copy\nextbox}%
\egroup
\clf_setcolumnsetarea{name {#1} box \scratchbox c #3 r #4}%
\setbox\scratchbox\vbox\bgroup
\hskip-\layoutparameter\c!backspace % todo: #9
\clip
[ \c!offset=\columnsetareaparameter\c!clipoffset,%
- \c!leftoffset=\columnsetareaparameter\c!rightoffset,%
+ \c!leftoffset=\columnsetareaparameter\c!leftoffset,%
\c!hoffset=\scratchdimen,%
\c!width=\wd\nextbox-\scratchdimen,%
% \c!height=
]%
{\box\nextbox}%
\egroup
\clf_setcolumnsetarea{name {#1} box \scratchbox c #7 r #4}%
\else
\setbox\scratchbox\vbox\bgroup
\box\nextbox % wrapping needed
\egroup
\clf_setcolumnsetarea{name {#1} box \scratchbox c #3 r #4}%
\fi
\endgroup}
Wolfgang
_______________________________________________
dev-context mailing list -- [email protected]
To unsubscribe send an email to [email protected]
