diff --git a/gui/m291/src/m291.tal b/gui/m291/src/m291.tal index d8c83ad..3a2c5f9 100644 --- a/gui/m291/src/m291.tal +++ b/gui/m291/src/m291.tal @@ -674,8 +674,13 @@ @ ( text* color -- ) ,/color STR [ LIT2 15 -Screen/auto ] DEO + .Screen/width DEI2 #0018 SUB2 ,&bound STR2 &>w ( -- ) LDAk + ( | trim ) + .Screen/x DEI2 [ LIT2 &bound $2 ] LTH2 ?{ + POP2 [ LIT ". ] + [ LIT ". ] ! } next-glyph LDAk ?&>w POP2 JMP2r