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

(m291) Temporarily disabled follow on move

This commit is contained in:
Devine Lu Linvega 2024-08-28 20:03:43 -07:00
parent 02b3b0e48c
commit 2e17f1a0e5
1 changed files with 2 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -213,17 +213,8 @@
@<move> ( mod -- ) @<move> ( mod -- )
.selection LDZ ADD .selection LDZ ADD
( | follow ) ( top ) DUP .selection/scroll LDZ #ff00 NEQ2 ?{ POP JMP2r }
DUP .lines/folders LDZ SUB ( bottom ) DUP .lines/folders LDZ .lines/tracks LDZ ADD NEQ ?{ POP JMP2r }
( 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 -- )