INC/LIBTUI.I.txt

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

LIB/LIBTUI.S.DLG.txt

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

LIB/LIBTUI.S.OBJ.txt

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

LIB/LIBTUI.S.txt

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

SYS/KERNEL.S.txt

@@ -27,13 +27,6 @@ MAIN.ORG		.EQ $1000
 A2osX.Unpak		>STYA ZPOutBufPtr
 		.INB usr/src/shared/x.unpak.s
 
-PAKME.GP		.DA GP
-PAKME.MAIN		.DA MAIN
-PAKME.AUX		.DA AUX
-PAKME.D1		.DA D1
-PAKME.D2		.DA D2
-PAKME.E0		.DA E0
-
 GP				.DA #0
 				.DA GP.S
 
@@ -141,6 +134,13 @@ DevMgr.FreeMem	.EQ *
 
 E0.S			.EQ *-E0.B
 
+PAKME.GP		.DA GP
+PAKME.MAIN		.DA MAIN
+PAKME.AUX		.DA AUX
+PAKME.D1		.DA D1
+PAKME.D2		.DA D2
+PAKME.E0		.DA E0
+
 				.AS "PAKME"				TAG
 				.DA $2000				BIN ORG
 				.DA #6					Chunk Count