Apple-2-SW
/
A2osX
mirror of https://github.com/A2osX/A2osX.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

LIBGUI:more bugfix

This commit is contained in:
burniouf 2022-10-25 17:23:50 +02:00
parent 41dad38140
commit 092861b8e9
2 changed files with 31 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.Floppies/A2OSX.BUILD.po
View File

Binary file not shown.

49
LIB/LIBGUI.S.MBAR.txt
View File

@ -166,10 +166,12 @@ MBAR.Enter ldy #S.WND.pMBAR
lda CB.Cache+S.CB.X2+1
sbc MSG+S.MSG.X1+1
bcc .7
* >DEBUG
ldy #S.MBITEM.S
lda (ZPPtr1),y
ora #S.MBITEM.S.SELECTED
bmi .8 Already Selected, nothing to do
eor #S.MBITEM.S.SELECTED
sta (ZPPtr1),y
jsr MENU.DestroyAll
@ -177,18 +179,27 @@ MBAR.Enter ldy #S.WND.pMBAR
jsr CB.GetBuf
bcs .9
jsr MBAR.DrawMBItem
.2 jsr MBAR.DrawMBItem
.3 jsr MBAR.NextMBItem
lda (ZPPtr1)
beq .6
ldy #S.MBITEM.S
lda (ZPPtr1),y
bpl .3
eor #S.MBITEM.S.SELECTED
sta (ZPPtr1),y
>LDYA L.WND.Screen
jsr MBAR.SetX2
bra .2
.6 >LDYA L.WND.Screen
jmp CB.FlushBufToYA
.7 lda CB.Cache+S.CB.X2
sta CB.Cache+S.CB.X1
lda CB.Cache+S.CB.X2+1
sta CB.Cache+S.CB.X1+1
lda #S.MBITEM
jsr SkipAPtr1
.7 jsr MBAR.NextMBItem
bra .1
.8 clc
@ -218,13 +229,7 @@ MBAR.Draw >SYSCALL2 GetMemPtr
jsr MBAR.DrawMBItem
bcs .9
lda CB.Cache+S.CB.X2
sta CB.Cache+S.CB.X1
lda CB.Cache+S.CB.X2+1
sta CB.Cache+S.CB.X1+1
lda #S.MBITEM
jsr SkipAPtr1
jsr MBAR.NextMBItem
bra .1
.8 clc
@ -293,6 +298,14 @@ MBAR.GetMBItems lda ZPMENUPtr
sta ZPPtr1+1
rts
*--------------------------------------
MBAR.NextMBItem lda CB.Cache+S.CB.X2
sta CB.Cache+S.CB.X1
lda CB.Cache+S.CB.X2+1
sta CB.Cache+S.CB.X1+1
lda #S.MBITEM
jmp SkipAPtr1
*--------------------------------------
MBAR.SetX2 lda CB.Cache+S.CB.X1
clc
ldy #S.MBITEM.W