A2osX/LIB/LIBTUI.S.SCRN.txt

NEW
  AUTO 3,1
				.LIST OFF
*--------------------------------------
* SCRN.New hCTX,F						2
*--------------------------------------
SCRN.New		jsr OBJ.Create			A = Class
				bcs .9

				>PULLA
				ldy #S.OBJ.F
				sta (ZPObjPtr),y

				>PULLA
				ldy #S.OBJ.hParent
				sta (ZPObjPtr),y

				>SYSCALL2 GetMemPtr
				>STYA ZPPtr2

				ldy #S.CTX.W
				lda (ZPPtr2),y
				ldy #S.OBJ.W
				sta (ZPObjPtr),y

				ldy #S.CTX.H
				lda (ZPPtr2),y
				ldy #S.OBJ.H
				sta (ZPObjPtr),y

				jmp OBJ.SetX2Y2

.9				>POP 2
				rts
*--------------------------------------
SCRN.Destroy	clc
				rts
*--------------------------------------
SCRN.Run		.EQ CONT.Run
*--------------------------------------
SCRN.Draw		.EQ CONT.Draw
*--------------------------------------
SCRN.Activate	.EQ CONT.Activate
*--------------------------------------
SCRN.Deactivate	.EQ CONT.Deactivate
*--------------------------------------
MAN
SAVE usr/src/lib/libtui.s.scrn
LOAD usr/src/lib/libtui.s
ASM