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-28 19:16:00 -07:00
parent bf030b22f3
commit 9f69c95646
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -214,7 +214,17 @@
@<move> ( mod -- ) @<move> ( mod -- )
.selection LDZ ADD INCk ?{ .selection LDZ ADD INCk ?{
POP count-lines #01 SUB !<select> } POP count-lines #01 SUB !<select> }
count-lines DIVk MUL SUB ( | follow )
DUP .lines/folders LDZ SUB
( up ) DUP #80 LTH ?{
.selection/scroll LDZ ADD #80 LTH ?{ POP !<redraw-dir> }
.selection/scroll LDZk #01 SUB SWP STZ
POP !<redraw-dir> }
( down ) DUP #18 LTH ?{
.selection/scroll LDZ ADD .lines/tracks LDZ NEQ ?{ POP !<redraw-dir> }
.selection/scroll LDZk INC SWP STZ
POP !<redraw-dir> }
POP
( >> ) ( >> )
@<select> ( id -- ) @<select> ( id -- )