diff options
| author | Hans Hagen <pragma@wxs.nl> | 2020-04-19 20:29:51 +0200 |
|---|---|---|
| committer | Context Git Mirror Bot <phg@phi-gamma.net> | 2020-04-19 20:29:51 +0200 |
| commit | 3c25716e01b7251f0f7504481692421a729e4b53 (patch) | |
| tree | f35478a7500c113744dd3875f3f8ab486a21c595 /tex/context/base/mkiv/trac-vis.mkiv | |
| parent | 9a1b9756939e12e328dea3633d9fe3cbde8f154b (diff) | |
| download | context-3c25716e01b7251f0f7504481692421a729e4b53.tar.gz | |
2020-04-19 19:24:00
Diffstat (limited to 'tex/context/base/mkiv/trac-vis.mkiv')
| -rw-r--r-- | tex/context/base/mkiv/trac-vis.mkiv | 28 |
1 files changed, 25 insertions, 3 deletions
diff --git a/tex/context/base/mkiv/trac-vis.mkiv b/tex/context/base/mkiv/trac-vis.mkiv index 570e6a7c7..14270214f 100644 --- a/tex/context/base/mkiv/trac-vis.mkiv +++ b/tex/context/base/mkiv/trac-vis.mkiv @@ -50,9 +50,10 @@ %D We only provide box visualizers as they can come in handy for testing %D macros. In due time we will move some of the m-visual code here too. -\let\syst_visualizers_hbox\hbox -\let\syst_visualizers_vbox\vbox -\let\syst_visualizers_vtop\vtop +\let\syst_visualizers_hbox \hbox +\let\syst_visualizers_vbox \vbox +\let\syst_visualizers_vtop \vtop +\let\syst_visualizers_vcenter\vcenter \let\syst_visualizers_hpack\hpack \let\syst_visualizers_vpack\vpack @@ -69,6 +70,27 @@ \unexpanded\def\ruledmbox#1{\ruledhbox{\startimath#1\stopimath}} +\ifcase\contextlmtxmode + + \unexpanded\def\sys_ruled_vcenter{\syst_visualizers_vcenter attr \visualattribute \clf_getvisual {simplevbox}} + + \unexpanded\def\ruledvcenter + {\ruledvbox\bgroup + \dowithnextboxcs\syst_boxes_ruled_vcenter_finish\ruledvbox} + + \def\syst_boxes_ruled_vcenter_finish + {\ruledhpack{\normalstartimath\ruledvcenter{\box\nextbox}\normalstopimath}% + \egroup} + + \prependtoks \let\ruledvcenter\sys_ruled_vcenter \to \everymath + \prependtoks \let\ruledvcenter\sys_ruled_vcenter \to \everydisplay + +\else + + \unexpanded\def\ruledvcenter{\syst_visualizers_vcenter attr \visualattribute \clf_getvisual {simplevbox}} + +\fi + \appendtoks \ifcase\c_syst_visualizers_state\else \syst_visualizers_speedup |