add support for radio buttons
This commit is contained in:
4am
parent
690d3f9fca
commit
39101de3b4
|
|
@ -97,9 +97,9 @@ Calling WeeGUI
|
|||
|
||||
###Applesoft
|
||||
|
||||
WeeGUI is accessed from Applesoft through ampersand extensions. For example, the DESK command clears the screen and draws a desktop background:
|
||||
WeeGUI is accessed from Applesoft through ampersand extensions. For example, the HOME command clears the screen and can optionally draw a desktop background:
|
||||
|
||||
10 &DESK
|
||||
10 &HOME(1)
|
||||
|
||||
If the call requires parameters, you can make a C-style function call. For example, to select view #6, you would call:
|
||||
|
||||
|
|
@ -425,6 +425,32 @@ Configuration block consists of five bytes:
|
|||
</table>
|
||||
|
||||
|
||||
####WGCreateRadio
|
||||
Creates a new WeeGUI radio button view. This is a specialized version of WGCreateView, and its parameters are similar.
|
||||
|
||||
Radio buttons act as a group; selecting one radio button deselects all other radio buttons. In WeeGUI, all radio buttons function as a single group. If you need multiple radio groups, rethink your design until you realize you don't need that.
|
||||
|
||||
<table width="100%">
|
||||
<tr><th>Assembly</th><th>Applesoft</th></tr><tr><td><pre>
|
||||
X: WGCreateRadio
|
||||
PARAM0: Pointer to configuration block (LSB)
|
||||
PARAM1: Pointer to configuration block (MSB)
|
||||
|
||||
Configuration block consists of five bytes:
|
||||
0: View ID (0-15)
|
||||
1: X position of checkbox
|
||||
2: Y position of checkbox
|
||||
3: Pointer to null-terminated string label (LSB)
|
||||
4: Pointer to null-terminated string label (MSB)
|
||||
</pre></td><td><pre>
|
||||
&RADIO( View ID,
|
||||
X position,
|
||||
Y position,
|
||||
"Label")
|
||||
</pre></td></tr>
|
||||
</table>
|
||||
|
||||
|
||||
####WGCreateProgress
|
||||
Creates a new WeeGUI progress bar view. This is a specialized version of WGCreateView, and its parameters are similar.
|
||||
|
||||
|
|
@ -899,7 +925,7 @@ Clears the screen to black. Unlike Applesoft HOME, this version always clears to
|
|||
<tr><th>Assembly</th><th>Applesoft</th></tr><tr><td><pre>
|
||||
X: WGClearScreen
|
||||
</pre></td><td><pre>
|
||||
&HOME
|
||||
&HOME(0)
|
||||
</pre></td></tr>
|
||||
</table>
|
||||
|
||||
|
|
@ -911,7 +937,7 @@ Paints a desktop background on the screen.
|
|||
<tr><th>Assembly</th><th>Applesoft</th></tr><tr><td><pre>
|
||||
X: WGDesktop
|
||||
</pre></td><td><pre>
|
||||
&DESK
|
||||
&HOME(1)
|
||||
</pre></td></tr>
|
||||
</table>
|
||||
|
||||
|
|
@ -972,6 +998,22 @@ PARAM3: Height
|
|||
</table>
|
||||
|
||||
|
||||
####WGStrokeRoundRect
|
||||
Draws the outline of a "round" rectangle, with left and right edges curved instead of straight. The rectangle is drawn one pixel outside the region you specify. So, *do not* attempt to stroke a rectangle in row 0, row 23, column 0, or column 79. You may overwrite screen holes and cause system malfunctions.
|
||||
|
||||
<table width="100%">
|
||||
<tr><th>Assembly</th><th>Applesoft</th></tr><tr><td><pre>
|
||||
X: WGStrokeRoundRect
|
||||
PARAM0: Left edge
|
||||
PARAM1: Top edge
|
||||
PARAM2: Width
|
||||
PARAM3: Height
|
||||
</pre></td><td><pre>
|
||||
&DRAW(left,top,width,height)
|
||||
</pre></td></tr>
|
||||
</table>
|
||||
|
||||
|
||||
####WGFillRect
|
||||
Fills a rectangle with a given character
|
||||
|
||||
|
|
|
|||
|
|
@ -71,4 +71,6 @@ WGSetState = 74
|
|||
WGViewSetRawTitle = 76
|
||||
WGSetContentWidth = 78
|
||||
WGSetContentHeight = 80
|
||||
WGStrokeRoundRect = 82
|
||||
WGCreateRadio = 84
|
||||
|
||||
|
|
|
|||
69
applesoft.s
69
applesoft.s
|
|
@ -386,21 +386,25 @@ WGAmpersandTempStrArgument_error:
|
|||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
; WGAmpersand_HOME
|
||||
; Clears the screen
|
||||
; &HOME
|
||||
; Clears the screen to black (if 0) or "desktop" fill (if 1)
|
||||
; &HOME(0 or 1)
|
||||
WGAmpersand_HOME:
|
||||
jsr WGClearScreen
|
||||
jsr WGBottomCursor
|
||||
jsr WGAmpersandBeginArguments
|
||||
jsr WGAmpersandIntArgument
|
||||
pha
|
||||
jsr WGAmpersandEndArguments
|
||||
pla
|
||||
|
||||
rts
|
||||
beq WGAmpersand_HOMEClearScreen
|
||||
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
; WGAmpersand_DESK
|
||||
; Render the desktop
|
||||
; &DESK
|
||||
WGAmpersand_DESK:
|
||||
jsr WGDesktop
|
||||
bra WGAmpersand_HOMEBottomCursor
|
||||
|
||||
WGAmpersand_HOMEClearScreen:
|
||||
jsr WGClearScreen
|
||||
; execution falls through here
|
||||
|
||||
WGAmpersand_HOMEBottomCursor:
|
||||
jsr WGBottomCursor
|
||||
rts
|
||||
|
||||
|
|
@ -492,6 +496,45 @@ WGAmpersand_CHKBX:
|
|||
rts
|
||||
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
; WGAmpersand_RADIO
|
||||
; Create a radio button
|
||||
; &RADIO(id,x,y,"title")
|
||||
WGAmpersand_RADIO:
|
||||
jsr WGAmpersandBeginArguments
|
||||
|
||||
jsr WGAmpersandIntArgument
|
||||
sta WGAmpersandCommandBuffer+0
|
||||
jsr WGAmpersandNextArgument
|
||||
|
||||
jsr WGAmpersandIntArgument
|
||||
sta WGAmpersandCommandBuffer+1
|
||||
jsr WGAmpersandNextArgument
|
||||
|
||||
jsr WGAmpersandIntArgument
|
||||
sta WGAmpersandCommandBuffer+2
|
||||
jsr WGAmpersandNextArgument
|
||||
|
||||
jsr WGAmpersandStrArgument
|
||||
stx WGAmpersandCommandBuffer+3
|
||||
sty WGAmpersandCommandBuffer+4
|
||||
|
||||
jsr WGAmpersandEndArguments
|
||||
|
||||
CALL16 WGCreateRadio,WGAmpersandCommandBuffer
|
||||
|
||||
LDY_ACTIVEVIEW ; Flag this as an Applesoft-created view
|
||||
lda #VIEW_STYLE_APPLESOFT
|
||||
ora WG_VIEWRECORDS+4,y
|
||||
sta WG_VIEWRECORDS+4,y
|
||||
|
||||
jsr WGPaintView
|
||||
jsr WGBottomCursor
|
||||
|
||||
rts
|
||||
|
||||
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
; WGAmpersand_PROG
|
||||
; Create a progress bar
|
||||
|
|
@ -1249,8 +1292,8 @@ WGAmpersandCommandTable:
|
|||
.byte TOKEN_HOME,0,0,0,0,0
|
||||
.addr WGAmpersand_HOME
|
||||
|
||||
.byte "DESK",0,0
|
||||
.addr WGAmpersand_DESK
|
||||
.byte "RADIO",0
|
||||
.addr WGAmpersand_RADIO
|
||||
|
||||
.byte "WINDW",0
|
||||
.addr WGAmpersand_WINDW
|
||||
|
|
|
|||
4
macros.s
4
macros.s
|
|
@ -93,10 +93,14 @@
|
|||
pha
|
||||
lda SCRATCH1
|
||||
pha
|
||||
lda SCRATCH2
|
||||
pha
|
||||
.endmacro
|
||||
|
||||
|
||||
.macro RESTORE_ZPS ; Restores Zero Page locations we use for scratch
|
||||
pla
|
||||
sta SCRATCH2
|
||||
pla
|
||||
sta SCRATCH1
|
||||
pla
|
||||
|
|
|
|||
1
memory.s
1
memory.s
|
|
@ -19,6 +19,7 @@ VIEW_STYLE_FANCY = $02
|
|||
VIEW_STYLE_PROGRESS = $03
|
||||
VIEW_STYLE_CHECK = $04
|
||||
VIEW_STYLE_BUTTON = $05
|
||||
VIEW_STYLE_RADIO = $06
|
||||
|
||||
|
||||
VIEW_STYLE_TAKESFOCUS = $04 ; Styles >= this one are selectable
|
||||
|
|
|
|||
33
rects.s
33
rects.s
|
|
@ -159,7 +159,7 @@ WGFillRect_horzLoopOddAlignedOneWidth:
|
|||
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
; WGStrokeRect
|
||||
; WGStrokeRect / WGStrokeRoundRect
|
||||
; Strokes a rectangle (assumes 80 cols)
|
||||
; PARAM0: Left edge
|
||||
; PARAM1: Top edge
|
||||
|
|
@ -171,6 +171,8 @@ CH_TOP = '_'+$80
|
|||
CH_BOTTOM = 'L'
|
||||
CH_LEFT = 'Z'
|
||||
CH_RIGHT = '_'
|
||||
CH_ROUND_LEFT = '('+$80
|
||||
CH_ROUND_RIGHT = ')'+$80
|
||||
CH_DOUBLE = '\'
|
||||
|
||||
.macro PLOTHLINE
|
||||
|
|
@ -194,8 +196,21 @@ CH_DOUBLE = '\'
|
|||
|
||||
|
||||
WGStrokeRect:
|
||||
SAVE_AXY
|
||||
SAVE_ZPS
|
||||
pha
|
||||
lda #CH_LEFT
|
||||
sta SCRATCH1
|
||||
lda #CH_RIGHT
|
||||
bra WGStrokeRect_common
|
||||
WGStrokeRoundRect:
|
||||
pha
|
||||
lda #CH_ROUND_LEFT
|
||||
sta SCRATCH1
|
||||
lda #CH_ROUND_RIGHT
|
||||
WGStrokeRect_common:
|
||||
sta SCRATCH2
|
||||
pla
|
||||
SAVE_AXY
|
||||
SAVE_ZPS
|
||||
|
||||
; Top and bottom edges
|
||||
;
|
||||
|
|
@ -374,7 +389,7 @@ WGStrokeRect_vertLoop:
|
|||
; CASE 1: Left edge even-aligned, even width
|
||||
SETSWITCH PAGE2ON
|
||||
ldy #$0
|
||||
lda #CH_LEFT ; Plot the left edge
|
||||
lda SCRATCH1 ; Plot the left edge
|
||||
sta (BASL),y
|
||||
|
||||
lda PARAM2 ; Is width even?
|
||||
|
|
@ -390,7 +405,7 @@ WGStrokeRect_vertLoop:
|
|||
dec
|
||||
tay
|
||||
SETSWITCH PAGE2OFF
|
||||
lda #CH_RIGHT ; Plot the right edge
|
||||
lda SCRATCH2 ; Plot the right edge
|
||||
sta (BASL),y
|
||||
jmp WGStrokeRect_vertLoopEvenAlignedNextRow
|
||||
|
||||
|
|
@ -402,7 +417,7 @@ WGStrokeRect_vertLoopEvenAlignedOddWidth:
|
|||
inc
|
||||
lsr
|
||||
tay
|
||||
lda #CH_RIGHT ; Plot the right edge
|
||||
lda SCRATCH2 ; Plot the right edge
|
||||
sta (BASL),y
|
||||
|
||||
WGStrokeRect_vertLoopEvenAlignedNextRow:
|
||||
|
|
@ -417,7 +432,7 @@ WGStrokeRect_vertLoopOdd:
|
|||
; CASE 2: Left edge odd-aligned, even width
|
||||
SETSWITCH PAGE2OFF
|
||||
ldy #$0
|
||||
lda #CH_LEFT ; Plot the left edge
|
||||
lda SCRATCH1 ; Plot the left edge
|
||||
sta (BASL),y
|
||||
|
||||
lda PARAM2 ; Is width even?
|
||||
|
|
@ -432,7 +447,7 @@ WGStrokeRect_vertLoopOdd:
|
|||
lsr
|
||||
tay
|
||||
SETSWITCH PAGE2ON
|
||||
lda #CH_RIGHT ; Plot the right edge
|
||||
lda SCRATCH2 ; Plot the right edge
|
||||
sta (BASL),y
|
||||
jmp WGStrokeRect_vertLoopOddAlignedNextRow
|
||||
|
||||
|
|
@ -444,7 +459,7 @@ WGStrokeRect_vertLoopOddAlignedOddWidth:
|
|||
inc
|
||||
lsr
|
||||
tay
|
||||
lda #CH_RIGHT ; Plot the right edge
|
||||
lda SCRATCH2 ; Plot the right edge
|
||||
sta (BASL),y
|
||||
|
||||
WGStrokeRect_vertLoopOddAlignedNextRow:
|
||||
|
|
|
|||
105
views.s
105
views.s
|
|
@ -156,6 +156,72 @@ WGCreateCheckbox_done:
|
|||
rts
|
||||
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
; WGCreateRadio
|
||||
; Creates a new radio button
|
||||
; PARAM0: Pointer to configuration struct (LSB)
|
||||
; PARAM1: Pointer to configuration struct (MSB)
|
||||
;
|
||||
; Configuration struct:
|
||||
; ID: View ID (0-f)
|
||||
; XX: Screen X origin
|
||||
; YY: Screen Y origin
|
||||
; SL: String pointer (LSB)
|
||||
; SH: String pointer (MSB)
|
||||
;
|
||||
WGCreateRadio:
|
||||
SAVE_AXY
|
||||
|
||||
ldy #0
|
||||
lda (PARAM0),y ; Find our new view record
|
||||
pha ; Cache view ID so we can select when we're done
|
||||
|
||||
asl
|
||||
asl
|
||||
asl
|
||||
asl ; Records are 16 bytes wide
|
||||
tax
|
||||
|
||||
iny
|
||||
lda (PARAM0),y
|
||||
sta WG_VIEWRECORDS+0,x ; Screen X
|
||||
|
||||
iny
|
||||
lda (PARAM0),y
|
||||
sta WG_VIEWRECORDS+1,x ; Screen Y
|
||||
|
||||
lda #1
|
||||
sta WG_VIEWRECORDS+2,x ; Initialize screen width
|
||||
sta WG_VIEWRECORDS+3,x ; Initialize screen height
|
||||
sta WG_VIEWRECORDS+7,x ; Initialize view width
|
||||
sta WG_VIEWRECORDS+8,x ; Initialize view height
|
||||
|
||||
lda #VIEW_STYLE_RADIO
|
||||
sta WG_VIEWRECORDS+4,x ; Style
|
||||
|
||||
stz WG_VIEWRECORDS+5,x ; Initialize scrolling
|
||||
stz WG_VIEWRECORDS+6,x
|
||||
|
||||
stz WG_VIEWRECORDS+9,x ; Initialize state
|
||||
stz WG_VIEWRECORDS+10,x ; Initialize callback
|
||||
stz WG_VIEWRECORDS+11,x
|
||||
|
||||
iny
|
||||
lda (PARAM0),y
|
||||
sta WG_VIEWRECORDS+12,x ; Title
|
||||
iny
|
||||
lda (PARAM0),y
|
||||
sta WG_VIEWRECORDS+13,x
|
||||
|
||||
pla
|
||||
jsr WGSelectView ; Leave this as the active view
|
||||
|
||||
WGCreateRadio_done:
|
||||
RESTORE_AXY
|
||||
rts
|
||||
|
||||
|
||||
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
; WGCreateProgress
|
||||
|
|
@ -374,6 +440,8 @@ WGPaintView:
|
|||
pla ; Draw outline
|
||||
cmp #VIEW_STYLE_FANCY
|
||||
beq WGPaintView_decorated
|
||||
cmp #VIEW_STYLE_RADIO
|
||||
beq WGPaintView_radio
|
||||
|
||||
jsr WGStrokeRect
|
||||
|
||||
|
|
@ -389,7 +457,10 @@ WGPaintView_decorated:
|
|||
jsr WGFancyRect
|
||||
jsr paintWindowTitle
|
||||
bra WGPaintView_done
|
||||
|
||||
|
||||
WGPaintView_radio:
|
||||
jsr WGStrokeRoundRect
|
||||
; execution falls through here
|
||||
WGPaintView_check:
|
||||
jsr paintCheck
|
||||
bra WGPaintView_done
|
||||
|
|
@ -947,16 +1018,46 @@ WGViewFocusAction:
|
|||
SAVE_AXY
|
||||
|
||||
lda WG_FOCUSVIEW
|
||||
bmi WGViewFocusAction_done
|
||||
bpl WGViewFocusAction_do
|
||||
jmp WGViewFocusAction_done
|
||||
|
||||
WGViewFocusAction_do:
|
||||
LDY_FOCUSVIEW
|
||||
lda WG_VIEWRECORDS+4,y ; What kind of view is it?
|
||||
and #$f ; Mask off flag bits
|
||||
|
||||
cmp #VIEW_STYLE_CHECK
|
||||
beq WGViewFocusAction_toggleCheckbox
|
||||
cmp #VIEW_STYLE_RADIO
|
||||
beq WGViewFocusAction_toggleRadio
|
||||
bra WGViewFocusAction_buttonClick ; Everything else treated like a button
|
||||
|
||||
WGViewFocusAction_toggleRadio:
|
||||
lda #15
|
||||
WGViewFocusAction_toggleRadioLoop:
|
||||
pha
|
||||
cmp WG_FOCUSVIEW
|
||||
beq WGViewFocusAction_toggleRadioLoopNext
|
||||
LDY_AVIEW
|
||||
lda WG_VIEWRECORDS+4,y
|
||||
and #$f
|
||||
cmp #VIEW_STYLE_RADIO
|
||||
bne WGViewFocusAction_toggleRadioLoopNext
|
||||
lda WG_VIEWRECORDS+9,y ; check if this radio button is selected
|
||||
beq WGViewFocusAction_toggleRadioLoopNext
|
||||
lda #0
|
||||
sta WG_VIEWRECORDS+9,y ; if so, deselect it and repaint
|
||||
pla
|
||||
pha
|
||||
jsr WGSelectView
|
||||
jsr WGPaintView
|
||||
WGViewFocusAction_toggleRadioLoopNext:
|
||||
pla
|
||||
dec
|
||||
bpl WGViewFocusAction_toggleRadioLoop
|
||||
LDY_FOCUSVIEW
|
||||
; execution falls through here
|
||||
|
||||
WGViewFocusAction_toggleCheckbox:
|
||||
lda WG_VIEWRECORDS+9,y ; Change the checkbox's state and redraw
|
||||
eor #%00000001
|
||||
|
|
|
|||
BIN
weegui.dsk
BIN
weegui.dsk
Binary file not shown.
2
weegui.s
2
weegui.s
|
|
@ -74,6 +74,8 @@ WGEntryPointTable:
|
|||
.addr WGViewSetRawTitle
|
||||
.addr WGSetContentWidth
|
||||
.addr WGSetContentHeight
|
||||
.addr WGStrokeRoundRect
|
||||
.addr WGCreateRadio
|
||||
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
|
|
|||
|
|
@ -22,3 +22,4 @@ PARAM2 = $08
|
|||
PARAM3 = $09
|
||||
SCRATCH0 = $19
|
||||
SCRATCH1 = $1a
|
||||
SCRATCH2 = $1b
|
||||
|
|
|
|||
Loading…
Reference in New Issue