summaryrefslogtreecommitdiff
path: root/tex/context/base/trac-vis.mkiv
diff options
context:
space:
mode:
Diffstat (limited to 'tex/context/base/trac-vis.mkiv')
-rw-r--r--tex/context/base/trac-vis.mkiv13
1 files changed, 7 insertions, 6 deletions
diff --git a/tex/context/base/trac-vis.mkiv b/tex/context/base/trac-vis.mkiv
index 70968fb35..0e4993853 100644
--- a/tex/context/base/trac-vis.mkiv
+++ b/tex/context/base/trac-vis.mkiv
@@ -48,22 +48,23 @@
\unexpanded\def\ruledhbox{\syst_visualizers_hbox attr \visualattribute \ctxcommand{visual("simplehbox")} }
\unexpanded\def\ruledvbox{\syst_visualizers_vbox attr \visualattribute \ctxcommand{visual("simplevbox")} }
\unexpanded\def\ruledvtop{\syst_visualizers_vtop attr \visualattribute \ctxcommand{visual("simplevtop")} } % special case
+\unexpanded\def\ruledtopv{\syst_visualizers_vtop attr \visualattribute \ctxcommand{visual("vtop")} }
\unexpanded\def\showmakeup
{\ctxcommand{setvisual("makeup")}%
- \let\normalvtop\ruledvtop
- \let\vtop \ruledvtop}
+ \let\normalvtop\ruledtopv
+ \let\vtop \ruledtopv}
\unexpanded\def\showallmakeup
{\ctxcommand{setvisual("all")}%
- \let\normalvtop\ruledvtop
- \let\vtop \ruledvtop
+ \let\normalvtop\ruledtopv
+ \let\vtop \ruledtopv
\showstruts}
\unexpanded\def\showboxes
{\ctxcommand{setvisual("boxes")}%
- \let\normalvtop\ruledvtop
- \let\vtop \ruledvtop}
+ \let\normalvtop\ruledtopv
+ \let\vtop \ruledtopv}
\unexpanded\def\showglyphs
{\ctxcommand{setvisual("glyph")}}