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

(m291) Do not reset scroll on file picking

This commit is contained in:
Devine Lu Linvega 2024-08-31 10:41:12 -07:00
parent 7adfa6906f
commit d16798dc7b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -51,7 +51,7 @@
( name ) "m291 0a ( name ) "m291 0a
( desc ) "Audio 20 "Player 0a ( desc ) "Audio 20 "Player 0a
( auth ) "By 20 "Linvega 20 "& 20 "d6 0a ( auth ) "By 20 "Linvega 20 "& 20 "d6 0a
( date ) "30 20 "Aug 20 "2024 $2 ( date ) "31 20 "Aug 20 "2024 $2
( (
@|vectors ) @|vectors )
@ -235,7 +235,6 @@
.selection STZ !<redraw-dir> .selection STZ !<redraw-dir>
@<pick> ( alt id -- ) @<pick> ( alt id -- )
[ LIT2 00 -selection/scroll ] STZ
DUP .lines/folders LDZ LTH ?&folder DUP .lines/folders LDZ LTH ?&folder
.lines/folders LDZ SUB DUP .lines/tracks LDZ LTH ?&tracks .lines/folders LDZ SUB DUP .lines/tracks LDZ LTH ?&tracks
POP JMP2r POP JMP2r
@ -249,6 +248,7 @@
#00 SWP #00 SWP
( CELLSIZE ) #70 SFT2 ;mem/folders ADD2 ( CELLSIZE ) #70 SFT2 ;mem/folders ADD2
( > ) [ LIT2 00 -selection ] STZ ( > ) [ LIT2 00 -selection ] STZ
( > ) [ LIT2 00 -selection/scroll ] STZ
path/<push> !<refresh-dir> path/<push> !<refresh-dir>
@<escape> ( -- ) @<escape> ( -- )