NEW
PREFIX
AUTO 4,1
*--------------------------------------
BUT.New			>STYA ZPPtr1

				ldy #S.OBJ.W
				lda (ZPPtr1),y
				iny
				ora (ZPPtr1),y
				bne .1					W in !NULL, static size

				ldy #S.BUT.hBM
				lda (ZPPtr1),y
				beq .1
				
				ldy #S.BM.W
				>SYSCALL2 GetStkObjProp

				phy
				ldy #S.OBJ.W+1
				sta (ZPPtr1),y
				dey
				pla
				sta (ZPPtr1),y

.1

				clc
				rts
*--------------------------------------
BUT.Draw

*--------------------------------------

*--------------------------------------
MAN
SAVE USR/SRC/LIB/LIBGUI.S.BUT
LOAD USR/SRC/LIB/LIBGUI.S
ASM
