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