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

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

				ldy #S.BUT.hBM
				lda (ZPPtr1),y
				beq .1
				
				ldy #S.BM.W
				>SYSCALL GetStkObjProperty.AY

				phy
				ldy #S.CTRL.W+1
				sta (ZPPtr1),y
				dey
				pla
				sta (ZPPtr1),y
					
.1				ldy 
*--------------------------------------
BUT.Draw

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

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