This commit is contained in:
parent
066413c267
commit
5aecacbd00
|
@ -63,14 +63,14 @@ MainScreen
|
|||
jsr WeeGUI
|
||||
jsr PaintAllViews ; draw all UI elements
|
||||
bit $C010 ; clear keyboard strobe
|
||||
.runLoop
|
||||
.mainRunLoop
|
||||
ldx #WGPendingViewAction
|
||||
jsr WeeGUI ; handle mouse movement and clicks
|
||||
lda $c000
|
||||
bpl .runLoop
|
||||
bpl .mainRunLoop
|
||||
bit $c010
|
||||
jsr HandleKey ; handle keypresses
|
||||
bra .runLoop
|
||||
bra .mainRunLoop
|
||||
|
||||
ExitWeeGUI
|
||||
ldx #WGDisableMouse ; disable mouse support before quitting
|
||||
|
|
|
@ -248,18 +248,18 @@ callback_boxart
|
|||
sta $C052
|
||||
sta $C054
|
||||
sta $C050
|
||||
bit $C010
|
||||
ldx #WGClearPendingClick
|
||||
bit $C010 ; clear keyboard strobe
|
||||
ldx #WGClearPendingClick ; clear WeeGUI mouse strobe
|
||||
jsr WeeGUI
|
||||
-
|
||||
.boxArtRunLoop
|
||||
ldx #WGPendingClick
|
||||
jsr WeeGUI
|
||||
cpx #$FF
|
||||
bne +
|
||||
bne + ; X != #$FF -> user clicked mouse
|
||||
lda $C000
|
||||
bpl -
|
||||
+ bit $C010
|
||||
ldx #WGClearPendingClick
|
||||
bpl .boxArtRunLoop
|
||||
+ bit $C010 ; clear keyboard strobe
|
||||
ldx #WGClearPendingClick ; clear WeeGUI mouse strobe
|
||||
jsr WeeGUI
|
||||
sta $C051 ; back to text
|
||||
rts
|
||||
|
|
Loading…
Reference in New Issue