(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

View File

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