- Fixed non-interactive views repainting superfluously when clicked

2025-03-03 02:29:01 +00:00 · 2014-10-17 13:03:13 -07:00 · 2014-10-17 13:03:13 -07:00 · ad7309db49
commit ad7309db49
parent addac4355b
2 changed files with 8 additions and 0 deletions
--- a/guidemo.dsk
+++ b/guidemo.dsk
--- a/views.s
+++ b/views.s
@ -648,11 +648,19 @@ focusCurrent:
 	jsr WGSelectView

 	LDY_ACTIVEVIEW
+
+	lda WG_VIEWRECORDS+4,y
+	and #$f						; Mask off flag bits
+	cmp #VIEW_STYLE_TAKESFOCUS
+	bcc focusCurrent_done
+
 	lda WG_VIEWRECORDS+9,y
 	ora #%10000000
 	sta WG_VIEWRECORDS+9,y

 	jsr WGPaintView
+
+focusCurrent_done:
 	rts