NEW
  AUTO 3,1
*--------------------------------------
* NewBitmap (hWND, pBM, X, Y)
*--------------------------------------
BITMAP.New		jsr OBJ.PullDXDY
				>PULLW ZPBMPtr
				jsr OBJ.PullHWND

BITMAP.New.I	lda #S.OBJ.T.BITMAP
				jsr OBJ.New
				bcs .9					ZPObjPtr

				phx						hOBJ

				jsr OBJ.SetDXDYX1Y1

				ldy #S.BITMAP.pBM
				lda ZPBMPtr
				sta (ZPObjPtr),y
				iny
				lda ZPBMPtr+1
				sta (ZPObjPtr),y

				pla						hOBJ
				jmp WND.AddChild.I

.9				rts
*--------------------------------------
BITMAP.Enter
BITMAP.Leave
				clc
				rts
*--------------------------------------
* ZPWNDPtr
* ZPObjPtr
*--------------------------------------
BITMAP.fPaint	jsr CB.GetObjX1Y1
			
				ldy #S.BITMAP.pBM
				jsr OBJ.GetPtr

				jsr BM.YA2CB.cache
				
				jsr CB.ToGlobal
				jmp CB.Write
*--------------------------------------
MAN
SAVE usr/src/lib/libgui.s.bitmap
LOAD usr/src/lib/libgui.s
ASM