\TextPar\Define\BarText(1){
   \LSeg\Q(BarBot,BarTop)
   \setbox0=\hbox{#1}
   \ifdim \Val\Q pt > \wd0
     \MoveToLoc(BarBot)
     \CSeg[0.5]\Move(BarBot,BarTop)
     \EntryExit(0,0,0,0)
   \else    \MoveToLoc(BarTop)
     \Move(3pt\du,0)
     \EntryExit(-1,0,0,0)   \fi
   \Text(--#1--)  \MarkLoc(o)
   \MoveToExit(-1,1) \MarkLoc(x)
   \CSeg[2]\Clip(x,o)}
 \Draw...\EndDraw