Hans, is this a trick to get even more wiki pages?
\clip is still running wild... :)
Greetings,
Peter
% interface=en output=pdftex
% Time-stamp: <Donnerstag, 08 September 2005 18:28:23; crop.tex>
%
\setupcolors[state=start]
\unprotect
\def\limitatefirstline#1#2#3%
{\hbox\bgroup\strut
\setbox\scratchbox\hbox{#1}%
\ifdim\wd\scratchbox>#2\relax
\setbox\scratchbox\hbox{#3}%
\hsize#2\relax
\advance\hsize-\wd\scratchbox
\setbox\scratchbox\vbox{\forgetall\veryraggedright#1}%
\setbox\scratchbox\vsplit\scratchbox to \lineheight
\vbox
{\unvbox\scratchbox
\global\setbox\plusone\lastbox
\global\setbox\plusone\hbox{\unhbox\plusone}%
\ifx\clip\undefined
\box\plusone\removeunwantedspaces#3%
\else\ifdim\wd\plusone>\hsize
\hbox{\clip[\c!width=\hsize]{\box\plusone}#3}%
\else
\box\plusone\removeunwantedspaces#3%
\fi\fi}%
\else
#1%
\fi
\egroup}
\protect
\def\CropSymbol{\red...}%
\starttext
\setupframed[offset=overlay, height=\struttotal, framecolor=lightgray]
\setupframed[offset=overlay, height=\struttotal, framecolor=lightgray]
\framed[width=8ex,background=color,backgroundcolor=black]{\white 8ex}
\framed{\limitatefirstline{\underbar{Text dummy}}{8ex}{\CropSymbol}}
\framed{\limitatetext{\underbar{Text dummy}}{8ex}{\CropSymbol}}
\blank
\framed[width=120pt,background=color,backgroundcolor=black]{\white 120 pt}
\framed{\limitatefirstline{\textbar \_\textcircumflex\texttilde
\%\$\#\textbraceleft \textbraceright \textpm \copyright \registered \pi
\textdegree <>\&}{120pt}{\CropSymbol}}
\blank
\framed[width=110pt,background=color,backgroundcolor=black]{\white 110 pt}
\framed{\limitatefirstline{\textbar \_\textcircumflex\texttilde
\%\$\#\textbraceleft \textbraceright \textpm \copyright \registered \pi
\textdegree <>\&}{110pt}{\CropSymbol}}
\framed{\limitatefirstline{This text is definitely too long to fit this
frame.}{110pt}{\CropSymbol}}
\blank
\framed[width=100pt,background=color,backgroundcolor=black]{\white 100 pt}
\framed{\limitatefirstline{\textbar \_\textcircumflex\texttilde
\%\$\#\textbraceleft \textbraceright \textpm \copyright \registered\space \pi
\textdegree <>\&}{100pt}{\CropSymbol}}
\stoptext
%%% Local Variables:
%%% mode: context
%%% TeX-master: ""
%%% End:
_______________________________________________
ntg-context mailing list
ntg-context@ntg.nl
http://www.ntg.nl/mailman/listinfo/ntg-context
