fix bug in SimulateClick that broke scrolling description box with arrow keys

This commit is contained in:
4am 2018-04-10 13:32:49 -04:00
parent c89442b9e9
commit 4af523afd7
4 changed files with 11 additions and 4 deletions

View File

@ -44,6 +44,8 @@ kLastPlayed
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
; LoadGlobalPreferences ; LoadGlobalPreferences
; load global options and state (including current game) from file and populate
; global prefs store
; ;
; in: current ProDOS prefix is the same as the PITCH.DARK.CONF file ; in: current ProDOS prefix is the same as the PITCH.DARK.CONF file
; out: all registers and flags clobbered ; out: all registers and flags clobbered
@ -67,6 +69,9 @@ LoadGlobalPreferences
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
; SaveGlobalPreferences ; SaveGlobalPreferences
; save global options and state to file
; note: this function is inefficient because I want the preferences file to
; look a certain way at all times
; ;
; in: current ProDOS prefix is the same as the PITCH.DARK.CONF file ; in: current ProDOS prefix is the same as the PITCH.DARK.CONF file
; out: all registers and flags clobbered ; out: all registers and flags clobbered

View File

@ -139,7 +139,7 @@ PrintAt
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
; SimulateClick ; SimulateClick
; select, focus, activate, and unfocus a WeeGUI view ; focus, activate, and unfocus a WeeGUI view
; ;
; in: WeeGUI initialized ; in: WeeGUI initialized
; A contains WeeGUI view ID ; A contains WeeGUI view ID
@ -147,8 +147,6 @@ PrintAt
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
!zone { !zone {
SimulateClick SimulateClick
ldx #WGSelectView
jsr WeeGUI
ldx #WGViewFocus ldx #WGViewFocus
jsr WeeGUI jsr WeeGUI
ldx #WGViewFocusAction ldx #WGViewFocusAction

View File

@ -89,6 +89,8 @@ HandleKey
tax tax
ldy gViewInUse,x ldy gViewInUse,x
beq .notFound beq .notFound
ldx #WGSelectView
jsr WeeGUI
.focusAndDoAction .focusAndDoAction
jmp SimulateClick jmp SimulateClick
@ -211,4 +213,4 @@ callback_boxart = DisplayArtwork
callback_options = OptionsDialog callback_options = OptionsDialog
callback_clues = LaunchInterpreterWithHints callback_clues = LaunchInterpreterWithHints
callback_play = LaunchInterpreterWithGame callback_play = LaunchInterpreterWithGame
callback_resume = LaunchInterpreterWithGame callback_resume = ResumeDialog

View File

@ -127,6 +127,8 @@ HandleOptionsKey
jmp SoftBell jmp SoftBell
.foundKey .foundKey
lda .keys+1,x lda .keys+1,x
ldx #WGSelectView
jsr WeeGUI
jmp SimulateClick jmp SimulateClick
callback_options_ok callback_options_ok