From 974640d66e61e81cb197ad96fdff7b08343e4c5a Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sat, 6 Mar 2021 21:58:15 +0000 Subject: context git-svn-id: svn://tug.org/texlive/trunk@58167 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/context/base/mkiv/pack-bar.mkiv | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) (limited to 'Master/texmf-dist/tex/context/base/mkiv/pack-bar.mkiv') diff --git a/Master/texmf-dist/tex/context/base/mkiv/pack-bar.mkiv b/Master/texmf-dist/tex/context/base/mkiv/pack-bar.mkiv index b67d6f14b28..99323b43564 100644 --- a/Master/texmf-dist/tex/context/base/mkiv/pack-bar.mkiv +++ b/Master/texmf-dist/tex/context/base/mkiv/pack-bar.mkiv @@ -40,7 +40,7 @@ \installcorenamespace{positionbar} -\installsimplecommandhandler \??positionbar {positionbar} +\installsimplecommandhandler \??positionbar {positionbar} \??positionbar \setuppositionbar [\c!min=1, @@ -63,7 +63,8 @@ \unexpanded\def\verticalpositionbar[#1]% {\vbox to \vsize - {\setuppositionbar[#1]% + {\hsize\positionbarparameter\c!width + \setuppositionbar[#1]% \usepositionbarstyleandcolor\c!style\c!color \vskip\zeropoint\s!plus \positionbarparameter\c!n \s!fill \vskip\zeropoint\s!plus-\positionbarparameter\c!min\s!fill @@ -75,17 +76,18 @@ {\hpack to \hsize {\setuppositionbar[#1]% \usepositionbarstyleandcolor\c!style\c!color - \leaders\vrule\hskip\zeropoint\s!plus\numexpr\positionbarparameter\c!n-\positionbarparameter\c!min+\plusone\relax\s!fill \vrule\s!width\zeropoint\s!height\positionbarparameter\c!height\s!depth\positionbarparameter\c!depth + \leaders\vrule\hskip\zeropoint\s!plus\numexpr\positionbarparameter\c!n-\positionbarparameter\c!min+\plusone\relax\s!fill \hskip\zeropoint\s!plus \positionbarparameter\c!max\s!fill \hskip\zeropoint\s!plus-\positionbarparameter\c!n \s!fill}} \unexpanded\def\verticalgrowingbar[#1]% {\vpack to \vsize - {\setuppositionbar[#1]% + {\hsize\positionbarparameter\c!width + \setuppositionbar[#1]% \usepositionbarstyleandcolor\c!style\c!color - \leaders\hrule\vskip\zeropoint\s!plus\numexpr\positionbarparameter\c!n-\positionbarparameter\c!min+\plusone\relax\s!fill \hrule\s!width\positionbarparameter\c!width\s!height\zeropoint\s!depth\zeropoint + \leaders\hrule\vskip\zeropoint\s!plus\numexpr\positionbarparameter\c!n-\positionbarparameter\c!min+\plusone\relax\s!fill \vskip\zeropoint\s!plus \positionbarparameter\c!max\s!fill \vskip\zeropoint\s!plus-\positionbarparameter\c!n \s!fill}} -- cgit v1.2.3