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
; 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
; out: all registers and flags clobbered
@ -67,6 +69,9 @@ LoadGlobalPreferences
;------------------------------------------------------------------------------
; 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
; out: all registers and flags clobbered

View File

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

View File

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

View File

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