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

(m291) Keep selection

This commit is contained in:
Devine Lu Linvega 2024-08-26 20:28:47 -07:00
parent 1062f0e525
commit eb48ec2382
1 changed files with 2 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -337,7 +337,6 @@
&tracks ( id -- ) &tracks ( id -- )
DUP .selection/track STZ DUP .selection/track STZ
[ LIT2 ff -selection ] STZ
#00 SWP #00 SWP
( CELLSIZE ) #70 SFT2 ;mem/tracks ADD2 !<send-load> ( CELLSIZE ) #70 SFT2 ;mem/tracks ADD2 !<send-load>
@ -346,15 +345,9 @@
( CELLSIZE ) #70 SFT2 ;mem/folders ADD2 !<enter> ( CELLSIZE ) #70 SFT2 ;mem/folders ADD2 !<enter>
@<enter> ( folder* -- ) @<enter> ( folder* -- )
.selection/mod LDZ ?&special [ LIT2 00 -selection ] STZ
push-path !<refresh-dir> push-path !<refresh-dir>
&special ( folder* -- )
;path <pstr>
<pstr>/
#0a18 DEO
JMP2r
@<leave> ( -- ) @<leave> ( -- )
pop-path !<refresh-dir> pop-path !<refresh-dir>
@ -637,7 +630,7 @@
[ LIT2 15 -Screen/auto ] DEO [ LIT2 15 -Screen/auto ] DEO
#0000 .Screen/x DEO2 #0000 .Screen/x DEO2
;poke-icn .Screen/addr DEO2 ;poke-icn .Screen/addr DEO2
[ LIT2 05 -Screen/sprite ] DEO } STHkr .Screen/sprite DEO }
( | normal ) ( | normal )
#0008 .Screen/x DEO2 #0008 .Screen/x DEO2
#00 OVR #00 OVR