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

LIBTUI: DLG fixes

This commit is contained in:
burniouf 2024-01-01 12:25:12 +01:00
parent c3d9f28c22
commit 9abd365415
5 changed files with 8 additions and 6 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.

2
INC/LIBTUI.I.txt
View File

@ -84,7 +84,7 @@ S.OBJ.pVar .EQ 26
*-------------------------------------- *--------------------------------------
S.OBJ.Childs .EQ 32 S.OBJ.Childs .EQ 32
* *
S.OBJ .EQ 48 S.OBJ .EQ 64
*-------------------------------------- *--------------------------------------
S.SCRN .EQ S.OBJ S.SCRN .EQ S.OBJ
*-------------------------------------- *--------------------------------------

6
LIB/LIBTUI.S.DLG.txt
View File

@ -24,17 +24,19 @@ DLG.New lda #S.OBJ.T.DLG
>SYSCALL2 GetMemPtr >SYSCALL2 GetMemPtr
>STYA ZPPtr2 >STYA ZPPtr2
ldy #S.OBJ.W ldy #S.CTX.W
lda (ZPPtr2),y lda (ZPPtr2),y
sec sec
ldy #S.OBJ.W
sbc (ZPObjPtr),y sbc (ZPObjPtr),y
lsr lsr
ldy #S.OBJ.X1 ldy #S.OBJ.X1
sta (ZPObjPtr),y sta (ZPObjPtr),y
ldy #S.OBJ.H ldy #S.CTX.H
lda (ZPPtr2),y lda (ZPPtr2),y
sec sec
ldy #S.OBJ.H
sbc (ZPObjPtr),y sbc (ZPObjPtr),y
lsr lsr
ldy #S.OBJ.Y1 ldy #S.OBJ.Y1

1
LIB/LIBTUI.S.OBJ.txt
View File

@ -182,7 +182,6 @@ OBJ.SetX2Y2 ldy #S.OBJ.X1
*-------------------------------------- *--------------------------------------
OBJ.Exec >PUSHA hOBJ OBJ.Exec >PUSHA hOBJ
jsr LIB.GetOBJ jsr LIB.GetOBJ
jsr LIB.GetCTX jsr LIB.GetCTX
.1 jsr IO.GetC .1 jsr IO.GetC

5
LIB/LIBTUI.S.txt
View File

@ -297,10 +297,11 @@ LIB.GetCTX >LDYA ZPObjPtr
>STYA ZPCtxPtr >STYA ZPCtxPtr
.1 lda (ZPCtxPtr) .1 lda (ZPCtxPtr)
* cmp #S.OBJ.T.SCRN cmp #S.OBJ.T.DLG+1
beq .8 bcc .8
jsr .8 jsr .8
bra .1 bra .1
.8 ldy #S.OBJ.hParent .8 ldy #S.OBJ.hParent