mirror of
https://github.com/blondie7575/WeeGUI.git
synced 2024-12-12 09:29:03 +00:00
bugfix: &FILL should support mousetext characters [fixes #6]
This commit is contained in:
parent
971da7c4da
commit
03132095c6
10
applesoft.s
10
applesoft.s
@ -468,7 +468,7 @@ WGAmpersand_CHKBX:
|
||||
lda #VIEW_STYLE_APPLESOFT
|
||||
ora WG_VIEWRECORDS+4,y
|
||||
sta WG_VIEWRECORDS+4,y
|
||||
|
||||
|
||||
jsr WGPaintView
|
||||
jsr WGBottomCursor
|
||||
|
||||
@ -505,7 +505,7 @@ WGAmpersand_PROG:
|
||||
lda #VIEW_STYLE_APPLESOFT
|
||||
ora WG_VIEWRECORDS+4,y
|
||||
sta WG_VIEWRECORDS+4,y
|
||||
|
||||
|
||||
jsr WGPaintView
|
||||
jsr WGBottomCursor
|
||||
|
||||
@ -871,7 +871,6 @@ WGAmpersand_FILL:
|
||||
jsr WGAmpersandNextArgument
|
||||
|
||||
jsr WGAmpersandIntArgument
|
||||
ora #$80 ; Convert to Apple format
|
||||
pha
|
||||
|
||||
jsr WGAmpersandEndArguments
|
||||
@ -956,7 +955,7 @@ WGAmpersand_PLOT:
|
||||
pla
|
||||
jsr WGPlot
|
||||
jsr WGBottomCursor
|
||||
|
||||
|
||||
rts
|
||||
|
||||
|
||||
@ -1033,7 +1032,7 @@ WGAmpersand_GETstore:
|
||||
iny
|
||||
pla
|
||||
sta (VARPNT),y
|
||||
|
||||
|
||||
; String version:
|
||||
; sta WG_KEYBUFFER ; Store the key
|
||||
; lda #1 ; Create an Applesoft string record in the
|
||||
@ -1276,4 +1275,3 @@ WGAmpersandCommandTable:
|
||||
|
||||
|
||||
WGAmpersandCommandTableEnd:
|
||||
|
||||
|
BIN
weegui.dsk
BIN
weegui.dsk
Binary file not shown.
Loading…
Reference in New Issue
Block a user