d6
/
uxn-utils
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(m291) Trim file names

This commit is contained in:
Devine Lu Linvega 2024-08-27 09:20:09 -07:00
parent c33017e041
commit 701408830b
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gui/m291/src/m291.tal
View File

@ -674,8 +674,13 @@
@<draw-uf2> ( text* color -- ) @<draw-uf2> ( text* color -- )
,<draw-glyph>/color STR ,<draw-glyph>/color STR
[ LIT2 15 -Screen/auto ] DEO [ LIT2 15 -Screen/auto ] DEO
.Screen/width DEI2 #0018 SUB2 ,&bound STR2
&>w ( -- ) &>w ( -- )
LDAk <draw-glyph> LDAk <draw-glyph>
( | trim )
.Screen/x DEI2 [ LIT2 &bound $2 ] LTH2 ?{
POP2 [ LIT ". ] <draw-glyph>
[ LIT ". ] !<draw-glyph> }
next-glyph LDAk ?&>w next-glyph LDAk ?&>w
POP2 JMP2r POP2 JMP2r