Apple-2-SW/pitch-dark
1
0
Fork 0
mirror of https://github.com/a2-4am/pitch-dark.git synced 2024-06-27 06:29:30 +00:00
Code Issues Projects Releases Wiki Activity

refactor out SimulateClick

Browse Source
This commit is contained in:
4am 2018-04-02 15:26:05 -04:00
parent 84cafe4c7f
commit 94b54cf04e
3 changed files with 27 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
src/ui.common.a
View File

@ -9,6 +9,7 @@
; - CreateButton ; - CreateButton
; - PaintTitleBar ; - PaintTitleBar
; - PrintAt ; - PrintAt
; - SimulateClick
; ;
; Public constants ; Public constants
; - kStringOK ; - kStringOK
@ -95,18 +96,18 @@ PaintTitleBar
ldx #WGSetGlobalCursor ldx #WGSetGlobalCursor
jsr WeeGUI jsr WeeGUI
ldx #WGPlot ldx #WGPlot
lda .stringTitle,y lda kStringGlobalTitle,y
jsr WeeGUI jsr WeeGUI
dey dey
bpl - bpl -
ldx #WGSyncGlobalCursor ldx #WGSyncGlobalCursor
jmp WeeGUI jmp WeeGUI
.stringTitle kStringGlobalTitle
!raw " " !raw " "
!byte 16 !byte 16 ; inverse P
!raw "itch " !raw "itch "
!byte 4 !byte 4 ; inverse D
!raw "ark ",0 !raw "ark ",0
} }
@ -135,3 +136,23 @@ PrintAt
ldx #WGPrint ldx #WGPrint
jmp WeeGUI jmp WeeGUI
} }
;------------------------------------------------------------------------------
; SimulateClick
; select, focus, activate, and unfocus a WeeGUI view
;
; in: WeeGUI loaded and initialized
; A contains WeeGUI view ID
; out: X clobbered
;------------------------------------------------------------------------------
!zone {
SimulateClick
ldx #WGSelectView
jsr WeeGUI
ldx #WGViewFocus
jsr WeeGUI
ldx #WGViewFocusAction
jsr WeeGUI
ldx #WGViewUnfocus
jmp WeeGUI
}

9
src/ui.main.keys.a
View File

@ -99,15 +99,8 @@ HandleKey
tax tax
ldy gViewInUse,x ldy gViewInUse,x
beq .notFound beq .notFound
ldx #WGSelectView
jsr WeeGUI
.focusAndDoAction .focusAndDoAction
ldx #WGViewFocus jmp SimulateClick
jsr WeeGUI
ldx #WGViewFocusAction
jsr WeeGUI
ldx #WGViewUnfocus
jmp WeeGUI
.y .y
lda .xyzzy lda .xyzzy
cmp #1 cmp #1

9
src/ui.options.a
View File

@ -127,14 +127,7 @@ HandleOptionsKey
jmp SoftBell jmp SoftBell
.foundKey .foundKey
lda .keys+1,x lda .keys+1,x
ldx #WGSelectView jmp SimulateClick
jsr WeeGUI
ldx #WGViewFocus
jsr WeeGUI
ldx #WGViewFocusAction
jsr WeeGUI
ldx #WGViewUnfocus
jmp WeeGUI
callback_options_ok callback_options_ok
jsr SetPrefByCheckbox jsr SetPrefByCheckbox