@@ 66,8 66,13 @@ BRK
&no-touch-cat
( when sub active )
;draw-cat/sel LDA #ff EQU ,&no-sub JCN
- .Mouse/y DEI2 #03 SFT2 NIP #01 SUB ;draw-sub/sel STA
- ;draw-cat/sel LDA #ff ;draw-sub JSR2
+ ( when sel changed )
+ .Mouse/y DEI2 #03 SFT2 NIP #01 SUB
+ DUP ;draw-sub/sel LDA EQU ,&no-change JCN
+ DUP ;draw-sub/sel STA
+ ;draw-cat/sel LDA #ff ;draw-sub JSR2
+ &no-change
+ POP
( when touch sub )
.Mouse/state DEI #00 EQU ,&no-touch-sub JCN
;draw-sub/sel LDA ;menu-select-sub JSR2
@@ 158,6 163,7 @@ JMP2r
@draw-sub ( cat mask -- )
+ LIT '- #18 DEO #0a18 DEO
,&mask STR POP
;draw-cat/sel LDA ;get-cat JSR2
DUP2 #0000 EQU2 ,&skip JCN
@@ 180,7 186,15 @@ JMP2r
@draw-label ( label* -- next-label* )
+ LDA2k SWP2
#0004 ADD2 ;draw-str JSR2
+ SWP2 ;draw-modkey JSR2
+
+JMP2r
+
+@draw-modkey ( mod key -- )
+
+ ;print JSR2 #0a18 DEO
JMP2r