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

(m291) Handle messages

This commit is contained in:
Devine Lu Linvega 2024-08-25 19:50:15 -07:00
parent cb042ee2fb
commit 5c974ebb38
1 changed files with 34 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -70,22 +70,6 @@
&status-bar ( y* -> )
POP2 BRK
@<y-id> ( y* -- id )
#0014 SUB2
( | above )
DUP2 #8000 GTH2 ?&outside
( | spacer )
has-spacer #00 EQU ?{
DUP2 [ LIT2 00 -lines/folders ] LDZ #40 SFT2 SUB2 #0008 LTH2 ?&outside
DUP2 [ LIT2 00 -lines/folders ] LDZ #40 SFT2 GTH2 #00 SWP #30 SFT2 SUB2 }
#04 SFT2 NIP
( | below )
DUP count-lines LTH ?{ POP #ff }
JMP2r
&outside ( y* -- id )
POP2 #ff JMP2r
@on-control ( -> )
( | mod )
[ LIT2 04 -Controller/button ] DEI AND #00 NEQ .selection/mod STZ
@ -109,13 +93,13 @@
#00 /<append>
( | parse line )
;&buf LDAk [ LIT "@ ] EQU ?{ POP2 JMP2r }
( INC2k LDA LIT "F EQU ?on-frame
| INC2k LDA LIT "H EQU ?on-help
| INC2k LDA LIT "I EQU ?on-id3
| INC2k LDA LIT "P EQU ?on-paused
| INC2k LDA LIT "R EQU ?on-revision
| INC2k LDA LIT "S EQU ?on-status
| INC2k LDA LIT "T EQU ?on-tag ) <perr>
INC2 LDAk
( | route )
DUP [ LIT "S ] EQU ?handle-status
DUP [ LIT "F ] EQU ?handle-frame
POP
( | not-handled )
<perr>
#0a19 DEO
( >> )
@ -128,9 +112,36 @@
STA
JMP2r
(
@|events )
@handle-status ( buf* char -- )
POP <perr>
#0a19 DEO !message/<new>
@handle-frame ( buf* char -- )
POP <perr>
#0a19 DEO !message/<new>
(
@|core )
@<y-id> ( y* -- id )
#0014 SUB2
( | above )
DUP2 #8000 GTH2 ?&outside
( | spacer )
has-spacer #00 EQU ?{
DUP2 [ LIT2 00 -lines/folders ] LDZ #40 SFT2 SUB2 #0008 LTH2 ?&outside
DUP2 [ LIT2 00 -lines/folders ] LDZ #40 SFT2 GTH2 #00 SWP #30 SFT2 SUB2 }
#04 SFT2 NIP
( | below )
DUP count-lines LTH ?{ POP #ff }
JMP2r
&outside ( y* -- id )
POP2 #ff JMP2r
@<refresh-dir> ( -- )
;path .File/name DEO2
#0800 .File/length DEO2