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

(m291) Cleanup

This commit is contained in:
Devine Lu Linvega 2024-08-26 09:03:13 -07:00
parent 27f2dbd2bf
commit 6b70e41478
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -27,21 +27,24 @@
@on-reset ( -> ) @on-reset ( -> )
;meta #06 DEO2 ;meta #06 DEO2
( | theme )
#d2d2 DUP2 .System/r DEO2 #d2d2 DUP2 .System/r DEO2
DUP2 .System/g DEO2 DUP2 .System/g DEO2
.System/b DEO2 .System/b DEO2
<load-theme> <load-theme>
( | size )
#0100 .Screen/width DEO2 #0100 .Screen/width DEO2
[ LIT2 01 -playing ] STZ ( | .. )
;dict/home-path set-path <refresh-dir>
;on-mouse .Mouse/vector DEO2
;on-control .Controller/vector DEO2
;on-console .Console/vector DEO2
( | play something )
message/<new> message/<new>
;dict/mpg-cmd .Console/addr DEO2 ;dict/mpg-cmd .Console/addr DEO2
[ LIT2 03 -Console/mode ] DEO [ LIT2 03 -Console/mode ] DEO
[ LIT2 01 -Console/exec ] DEO [ LIT2 01 -Console/exec ] DEO
[ LIT2 01 -playing ] STZ
;dict/home-path set-path <refresh-dir>
( | unlock )
;on-mouse .Mouse/vector DEO2
;on-control .Controller/vector DEO2
;on-console .Console/vector DEO2
BRK BRK
@meta $1 @meta $1
@ -50,6 +53,9 @@
( auth ) "By 20 "Devine 20 "Lu 20 "Linvega 0a ( auth ) "By 20 "Devine 20 "Lu 20 "Linvega 0a
( date ) "25 20 "Aug 20 "2024 $2 ( date ) "25 20 "Aug 20 "2024 $2
(
@|vectors )
@on-console ( -> brk ) @on-console ( -> brk )
[ LIT2 01 -Console/type ] DEI EQU ?{ BRK } [ LIT2 01 -Console/type ] DEI EQU ?{ BRK }
[ LIT2 0a -Console/read ] DEI EQUk ?{ message/<append> [ LIT2 0a -Console/read ] DEI EQUk ?{ message/<append>