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

(m291) Progress

This commit is contained in:
Devine Lu Linvega 2024-08-25 17:23:07 -07:00
parent 165229899c
commit 4b7d66fe7e
1 changed files with 27 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -35,8 +35,8 @@
@on-mouse ( -> )
#c1 ;touch-chr/down ;touch-chr .Mouse/state DEI ?{ SWP2 }
POP2 <update-cursor>
.Mouse/y DEI2 #0018 LTH2 ?&status-bar
.Mouse/y DEI2 <y-id>
.Mouse/y DEI2 DUP2 #0014 LTH2 ?&status-bar
<y-id>
.Mouse/state DEI DUP ?{ POP <select>
BRK }
#01 GTH .selection/mod STZ
@ -44,11 +44,11 @@
[ LIT2 00 -Mouse/state ] DEO
BRK
&status-bar ( -> )
BRK
&status-bar ( y* -> )
POP2 BRK
@<y-id> ( y* -- id )
#0003 SUB2
#0014 SUB2
( | above )
DUP2 #8000 GTH2 ?&outside
( | spacer )
@ -265,8 +265,6 @@
( | spacer )
#0014 .Screen/y DEO2
;line-icn <draw-spacer>
( | highlight )
.selection LDZ <draw-highlight>
( | content )
#001c .Screen/y DEO2
( | empty )
@ -274,11 +272,11 @@
#0008 .Screen/x DEO2
;dict/empty #0f !<draw-uf2> }
( | folders )
;mem/folders .lines/folders LDZ #01 <draw-list>
;mem/folders .lines/folders LDZ #01 .selection LDZ <draw-list>
[ LIT2 00 -lines/folders ] LDZ EQU ?{ ;dash-icn <draw-spacer> }
;mem/roms .lines/roms LDZ #00 <draw-list>
;mem/roms .lines/roms LDZ #00 .selection LDZ <draw-list>
[ LIT2 00 -misc ] LDZ EQU ?{
;mem/misc .lines/misc LDZ #00 <draw-list> }
;mem/misc .lines/misc LDZ #00 .selection LDZ <draw-list> }
JMP2r
@<draw-spacer> ( addr* -- )
@ -290,6 +288,19 @@
DEO
JMP2r
@<draw-background> ( -- )
#0000 .Screen/x DEO2
.Screen/y DEI2
( ) ;fill-icn .Screen/addr DEO2
[ LIT2 f2 -Screen/auto ] DEO
#02 .Screen/sprite DEOk DEOk
( | .. )
.Screen/x DEI2 #0080 ADD2 .Screen/x DEO2
.Screen/y DEI2 #0010 SUB2 .Screen/y DEO2
DEOk DEO
.Screen/y DEO2
JMP2r
@<draw-highlight> ( id -- )
( empty ) count-lines ?{ POP JMP2r }
;fill-icn .Screen/addr DEO2
@ -308,14 +319,18 @@
DEOk DEO
JMP2r
@<draw-list> ( addr* length folder -- )
@<draw-list> ( addr* length folder selection -- )
,&sel STR
,&folder STR
DUP ?{ POP2 POP JMP2r }
#0008 .Screen/x DEO2
#00 SWP2 ,&t STR2
&>l ( -- )
#00 OVR #40 SFT2 [ LIT2 &t $2 ] ADD2 #05 <draw-uf2>
( | selected )
DUP [ LIT &sel $1 ] NEQ ?{ <draw-background> }
( | normal )
#0008 .Screen/x DEO2
#00 OVR #40 SFT2 [ LIT2 &t $2 ] ADD2 #05 <draw-uf2>
.Screen/y DEI2k #0010 ADD2 ROT DEO2
INC GTHk ?&>l
POP2