NEW
  AUTO 3,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.Paint

*--------------------------------------
BUT.Close

				clc
				rts
*--------------------------------------
MAN
SAVE usr/src/lib/libgui.s.but
LOAD usr/src/lib/libgui.s
ASM
