This commit is contained in:
4am 2018-03-31 12:31:49 -04:00
parent 066413c267
commit 5aecacbd00
2 changed files with 10 additions and 10 deletions

View File

@ -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

View File

@ -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