(m291) Do not reset scroll on file picking
This commit is contained in:
parent
7adfa6906f
commit
d16798dc7b
|
@ -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> ( -- )
|
||||
|
|
Loading…
Reference in New Issue