diff options
| author | Hans Hagen <pragma@wxs.nl> | 2001-04-30 00:00:00 +0200 |
|---|---|---|
| committer | Hans Hagen <pragma@wxs.nl> | 2001-04-30 00:00:00 +0200 |
| commit | 661f9f4a789474b20056f6bd4855c66d9791b301 (patch) | |
| tree | 72af7bff285d69032c64b5c4d62667aa34b983f9 /tex/context/base/core-pos.tex | |
| parent | c710c4ab57f84965c89205af58bc4fe204dfb79c (diff) | |
| download | context-661f9f4a789474b20056f6bd4855c66d9791b301.tar.gz | |
stable 2001.04.30
Diffstat (limited to 'tex/context/base/core-pos.tex')
| -rw-r--r-- | tex/context/base/core-pos.tex | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/tex/context/base/core-pos.tex b/tex/context/base/core-pos.tex index fa40f6888..7f8ea7b10 100644 --- a/tex/context/base/core-pos.tex +++ b/tex/context/base/core-pos.tex @@ -795,6 +795,23 @@ fi ; \newcounter\currentmarginpos +% \def\dopositionmarginbox#1% +% {\bgroup +% \ifrepositionmarginbox +% \doglobal\increment\currentmarginpos +% \setposition{\s!margin:\currentmarginpos}% +% \scratchdimen=\MPy{\s!margin:\currentmarginpos}% +% \doglobal\increment\currentmarginpos +% \advance\scratchdimen by -\MPy{\s!margin:\currentmarginpos}% +% \advance\scratchdimen by -\dp\strutbox +% \setbox#1=\hbox +% {\setposition{\s!margin:\currentmarginpos}\raise\scratchdimen\box#1}% +% \dp#1=\!!zeropoint +% \ht#1=\!!zeropoint +% \fi +% \vadjust{\box#1}% +% \egroup} + \def\dopositionmarginbox#1% {\bgroup \ifrepositionmarginbox @@ -804,6 +821,12 @@ fi ; \doglobal\increment\currentmarginpos \advance\scratchdimen by -\MPy{\s!margin:\currentmarginpos}% \advance\scratchdimen by -\dp\strutbox + % new + \setbox#1=\hbox + {\hskip-\MPx{\s!margin:\currentmarginpos}% + \hskip\MPx{head:\realfolio}% + \box#1}% + % so far \setbox#1=\hbox {\setposition{\s!margin:\currentmarginpos}\raise\scratchdimen\box#1}% \dp#1=\!!zeropoint |