\setupbodyfont[lmodern,10pt]
\starttext
Test \type{\rightarrowfill} and \type{\leftarrowfill}
\blank
\ConTeXt\ \contextversion
\blank
dotfill [\hbox to\textwidth{\dotfill}]
\blank
dotfill [\hbox to5cm{\dotfill}]
\blank
rightarrowfill [\hbox to5cm{\rightarrowfill}]
\blank
leftarrowfill [\hbox to5cm{\leftarrowfill}]
\blank
\blank
hrulefill [\hbox to5cm{\hrulefill}]
\blank
rightarrowfill = \meaning\rightarrowfill
\blank
leftarrowfill = \meaning\leftarrowfill
\blank
Redefine tex{rightarrowfill} from the \TeX-book p.357
\crlf
\def\rightarrowfill{$\mathsurround=\zeropoint \mathord- \mkern-6mu
	\cleaders\hbox{$\mkern-2mu \mathord- \mkern-2mu$}\hfill
	\mkern-6mu \mathord\rightarrow$}
rightarrowfill [\hbox to5cm{\rightarrowfill}]
\blank
Redefine tex{leftarrowfill} from the \TeX-book p.357
\def\leftarrowfill{$\mathsurround=\zeropoint \mathord\leftarrow \mkern-6mu
	\cleaders\hbox{$\mkern-2mu \mathord- \mkern-2mu$}\hfill
	\mkern-6mu \mathord-$}
\crlf
leftarrowfill [\hbox to5cm{\leftarrowfill}]
\blank
\stoptext
