Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2025-08-15 16:27:31 +00:00
Code Issues Projects Releases Wiki Activity

LIBTUI: DLG fixes

Browse Source
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
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 .EQ 48
S.OBJ .EQ 64
*--------------------------------------
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
>STYA ZPPtr2
ldy #S.OBJ.W
ldy #S.CTX.W
lda (ZPPtr2),y
sec
ldy #S.OBJ.W
sbc (ZPObjPtr),y
lsr
ldy #S.OBJ.X1
sta (ZPObjPtr),y
ldy #S.OBJ.H
ldy #S.CTX.H
lda (ZPPtr2),y
sec
ldy #S.OBJ.H
sbc (ZPObjPtr),y
lsr
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
jsr LIB.GetOBJ
jsr LIB.GetCTX
.1 jsr IO.GetC

5
LIB/LIBTUI.S.txt
View File

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