.

src/WeeGUI_MLI.s

@@ -74,4 +74,5 @@ WGSetContentHeight		= 80
 WGStrokeRoundRect		= 82
 WGCreateRadio			= 84
 WGReset					= 86
+WGGetState				= 88
 

src/okvs.a

@@ -299,7 +299,6 @@ okvs_update
          sty   DEST+1
          lda   (SAVE)
          tay
-         iny
 -        lda   (SAVE),y
          sta   (DEST),y
          dey

src/paintcommon.a

@@ -118,5 +118,32 @@ SetCheckboxByPref
 SetPrefByCheckbox
          +PARAMS_ON_STACK 3
 
+         ldy   #1
+         lda   (PARAM),y
+         sta   .id
+         iny
+         lda   (PARAM),y
+         sta   .key
+         iny
+         lda   (PARAM),y
+         sta   .key+1
+
+         ldx   #WGSelectView
+.id=*+1
+         lda   #$FD                  ; set at runtime
+         jsr   WeeGUI
+         ldx   #WGGetState
+         jsr   WeeGUI
+
+         lda   PARAM0
+         and   #1
+         sta   .value+1
+
+         jsr   okvs_update
+         !word gPrefsStore
+.key     !word $FDFD                 ; set at runtime
+         !word .value
          rts
+.value   !byte 1
+         !byte $FD                   ; set at runtime
 }

src/paintoptions.a

@@ -86,7 +86,7 @@ OptionsDialog
          jsr   WeeGUI
 
          ldx   #WGSetCursor          ; paint static text labels
-         lda   #4
+         lda   #6
          sta   PARAM0
          lda   #3
          sta   PARAM1
@@ -99,7 +99,7 @@ OptionsDialog
          jsr   WeeGUI
 
          ldx   #WGSetCursor
-         lda   #4
+         lda   #6
          sta   PARAM0
          lda   #8
          sta   PARAM1
@@ -112,7 +112,7 @@ OptionsDialog
          jsr   WeeGUI
 
          ldx   #WGSetCursor
-         lda   #4
+         lda   #6
          sta   PARAM0
          lda   #13
          sta   PARAM1
@@ -125,7 +125,7 @@ OptionsDialog
          jsr   WeeGUI
 
          ldx   #WGSetCursor
-         lda   #4
+         lda   #6
          sta   PARAM0
          lda   #18
          sta   PARAM1
@@ -195,6 +195,7 @@ callback_options_ok
          jsr   SetPrefByCheckbox
          !byte ID_OPTIONS_AUTOSCRIPT
          !word kAutoScript
+         jsr   SaveGlobalPreferences
                                      ; execution falls through here
 callback_options_cancel
          jmp   MainScreen
@@ -255,7 +256,7 @@ callback_options_cancel
          !byte $75                   ; 'u' inverse
          !text "ppercase",0
 .stringForceUpperDescription
-         !text "A MATTER OF PREFERENCE",0
+         !text "A MATTER OF PREFERENCE, I SUPPOSE",0
 
 .viewScriptToFile
          !byte ID_OPTIONS_SCRIPTTOFILE ; view ID