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

(m291) Fixed progress bar width

This commit is contained in:
Devine Lu Linvega 2024-08-26 10:55:20 -07:00
parent 1da048a181
commit f1c531b876
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -131,13 +131,12 @@
@calc-width ( total* curr* -- width* )
STH2
DUP2 #013c LTH2 ?&ready
&scale ( -- )
DUP2 #0277 LTH2 ?&almost
#01 SFT2 LITr 01 SFT2r !&scale
&almost INC2 #01 SFT2 INC2r LITr 01 SFT2r
&ready ( -- )
LIT2r 00d0 MUL2r STH2r SWP2 DIV2 JMP2r
DUP2 #011b LTH2 ?{
&scale ( -- )
DUP2 #0237 LTH2 ?{
#01 SFT2 LITr 01 SFT2r !&scale }
INC2 #01 SFT2 INC2r LITr 01 SFT2r }
[ LIT2r 00e7 ] MUL2r STH2r SWP2 DIV2 JMP2r
(
@|events )