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

(m291) Follow cursor

This commit is contained in:
Devine Lu Linvega 2024-08-30 14:19:58 -07:00
parent 3e41f3b3b2
commit f194db1610
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -116,7 +116,7 @@
POP2 BRK
&scroll ( distance -> )
.selection/scroll LDZ ADD DUP #ff NEQ ?{ POP BRK }
.selection/scroll LDZ ADD INCk ?{ POP BRK }
.lines/folders LDZ .lines/tracks LDZ ADD #18 SUB
( needs scroll ) DUP #80 LTH ?{ POP2 BRK }
( max scroll ) LTHk [ JMP SWP POP ] .selection/scroll STZ
@ -215,10 +215,20 @@
@<move> ( mod -- )
.selection LDZ ADD
( top ) INCk ?{ POP JMP2r }
( bottom ) DUP .lines/folders LDZ .lines/tracks LDZ ADD NEQ ?{ POP JMP2r }
( >> )
@<select> ( id -- )
( | follow )
DUP .selection/scroll LDZ SUB
( top ) DUP #80 AND #00 EQU ?{
DUP .selection/scroll LDZ ADD .selection/scroll STZ !&resume }
( bottom ) DUP #18 LTH ?{
DUP .selection/scroll LDZ ADD #17 SUB .selection/scroll STZ }
&resume ( id scroll -- )
POP
( | continue )
[ LIT &last ff ] NEQk ?{ POP2 JMP2r }
POP DUP ,&last STR
.selection STZ !<redraw-dir>
@ -527,7 +537,7 @@
( >> )
@<draw-tracks> ( -- )
.selection LDZ ,&sel STR
.selection LDZ .lines/folders LDZ SUB ,&sel STR
#0008 .Screen/x DEO2
.lines/tracks LDZ #00 NEQk ?{ POP2 JMP2r }
.selection/scroll LDZ .lines/folders LDZ LTH ?{