diff options
Diffstat (limited to 'tex/context/base/supp-box.mkiv')
-rw-r--r-- | tex/context/base/supp-box.mkiv | 68 |
1 files changed, 19 insertions, 49 deletions
diff --git a/tex/context/base/supp-box.mkiv b/tex/context/base/supp-box.mkiv index a8774e482..de1da677a 100644 --- a/tex/context/base/supp-box.mkiv +++ b/tex/context/base/supp-box.mkiv @@ -75,10 +75,9 @@ %D core macros \type {\strutdepth} and alike, which are %D values. -\def\strutdp {\dp\strutbox} -\def\strutht {\ht\strutbox} -\def\strutwd {\wd\strutbox} -\def\struthtdp{\dimexpr\ht\strutbox+\dp\strutbox\relax} +\def\strutdp{\dp\strutbox} +\def\strutht{\ht\strutbox} +\def\strutwd{\wd\strutbox} %D \macros %D {voidbox,nextbox} @@ -1237,7 +1236,7 @@ \ifdone \else \parfillskip\zeropoint \rightskip\zeropoint - \hskip\zeropoint \s!plus 1\s!fill % \hsize + \hskip\zeropoint \!!plus 1\!!fill % \hsize \fi \unhcopy0}% \ifdim\ht\nextbox>\strutht @@ -1424,27 +1423,12 @@ {\setbox\nextbox\hbox {\strut \dp\nextbox\zeropoint - \lower\strutdp\box\nextbox}% - \dp\nextbox\strutdp - \ht\nextbox\strutht + \lower\strutdepth\box\nextbox}% + \dp\nextbox\strutdepth + \ht\nextbox\strutheight \box\nextbox \egroup} -%D A variant on this: - -\unexpanded\def\inlinedbox - {\bgroup - \dowithnextbox - {\setbox\nextbox\hbox - {\lower - \dimexpr(\htdp\nextbox-\lineheight)/\plustwo+\strutdp\relax - \box\nextbox}% - \ht\nextbox\strutht - \dp\nextbox\strutdp - \box\nextbox - \egroup}% - \hbox} - %D \macros %D {struttedbox} %D @@ -1529,8 +1513,8 @@ \bgroup \dontcomplain \forgetall - \setbox0\hbox{\vrule\s!width \zeropoint#1}% - \setbox2\vbox{\hrule\s!height\zeropoint#1}% + \setbox0\hbox{\vrule\!!width \zeropoint#1}% + \setbox2\vbox{\hrule\!!height\zeropoint#1}% \advance\vsize \ht2 \advance\hsize \wd0 \vbox to \vsize @@ -1589,9 +1573,9 @@ {\bgroup \dowithnextbox {\setlocalhsize - \setbox\scratchbox\hbox{\vrule\s!width \zeropoint#1}% + \setbox\scratchbox\hbox{\vrule\!!width \zeropoint#1}% \ifzeropt\wd\scratchbox\else\hsize\wd\scratchbox\fi - \setbox\scratchbox\vbox{\hrule\s!height\zeropoint#1}% + \setbox\scratchbox\vbox{\hrule\!!height\zeropoint#1}% \ifzeropt\ht\scratchbox\else\vsize\ht\scratchbox\fi \vbox to \vsize{\vss\hbox to \hsize{\hss\box\nextbox\hss}\vss}% \egroup}% @@ -1807,7 +1791,7 @@ \ifvoid\unhhedbox \exitloop \else - \hskip\zeropoint \s!plus \zeropoint + \hskip\zeropoint \!!plus \zeropoint \fi}% \egroup} @@ -2185,7 +2169,7 @@ \newbox\fakedboxcursor \setbox\fakedboxcursor\hbox - {\vrule\s!width\zeropoint\s!height\zeropoint\s!depth\zeropoint} + {\vrule\!!width\zeropoint\!!height\zeropoint\!!depth\zeropoint} \unexpanded\def\boxcursor % overloaded in core-vis {\iftraceboxplacement @@ -2194,9 +2178,9 @@ \setbox\scratchbox\hbox to \zeropoint {\hss \vrule - \s!width \scratchdimen - \s!height\scratchdimen - \s!depth \scratchdimen + \!!width \scratchdimen + \!!height\scratchdimen + \!!depth \scratchdimen \hss}% \smashedbox\scratchbox \egroup @@ -2447,14 +2431,15 @@ %D \macros %D {makestrutofbox} %D -%D This macro sets the dimensions of a box to those of a strut. +%D This macro sets the dimensions of a box to those of a +%D strut. \def\domakestrutofbox {\ht\c_boxes_register\strutht \dp\c_boxes_register\strutdp \wd\c_boxes_register\zeropoint} -\unexpanded\def\makestrutofbox % not used +\unexpanded\def\makestrutofbox {\afterassignment\domakestrutofbox\c_boxes_register} %D \macros @@ -2630,21 +2615,6 @@ % \showboxbreadth\maxdimen % \showboxdepth \maxdimen -%D Moved from cont-new: -%D -%D \starttyping -%D \minimalhbox 100pt {test} -%D \stoptyping - -\unexpanded\def\minimalhbox#1#% - {\dowithnextbox - {\bgroup - \setbox\scratchbox\hbox#1{\hss}% - \ifdim\wd\nextbox<\wd\scratchbox\wd\nextbox\wd\scratchbox\fi - \box\nextbox - \egroup} - \hbox} - \protect \endinput % a bit of test code: |