NEW
  AUTO 3,1
*--------------------------------------
* idButton MsgBox(pTITLE, pTEXT, pBM, idButtons)

* guiNewWnd(sFlags, iX1, iY1, iW, iH)
*--------------------------------------
MBOX.MsgBox		>LDYAI 360
				>STYA IE
				
				>LDYAI 80
				>STYA INE
				
				lda WND.Desktop+S.OBJ.W
				sec
				sbc IE
				sta DX
				lda WND.Desktop+S.OBJ.W+1
				sbc IE+1
				lsr 
				sta DX+1
				ror DX

				lda WND.Desktop+S.OBJ.H
				sec
				sbc INE
				sta DY
				lda WND.Desktop+S.OBJ.H+1
				sbc INE+1
				lsr 
				sta DY+1
				ror DY

				>PUSHBI S.OBJ.F.BORDER+S.WND.F.MOVE+S.WND.F.CLOSE+S.WND.F.MODAL
				>PUSHW DX
				>PUSHW DY
				>PUSHW IE
				>PUSHW INE
				jsr WND.New
				bcs .9
				
				pha
				
				ldy #S.WND.BGCOLOR
				lda #C.WHITE
				sta (ZPObjPtr),y
				
				ldy #6
				lda (pStack),y
				tax
				dey
				lda (pStack),y
				ldy #S.WND.pTITLE
				jsr OBJ.SetAXAtY
				
				pla

				jsr WND.Show
				bcs .9
				
				ldy #2					pBM
				lda (pStack),y
				tax
				dey
				lda (pStack),y
				jsr MBOX.DrawBM
				
				


				
.9				>POP 7
				rts
*--------------------------------------
MBOX.DrawBM		cpx #0
				bne .1
				
				tax
				>LDYA L.BMs,x
				
.1				>STYA ZPBMPtr

				jsr CB.GetBuf
				bcs .9

				lda #28
				sta CB.Cache+S.CB.X1
				stz CB.Cache+S.CB.X1+1
				sta CB.Cache+S.CB.Y1
				stz CB.Cache+S.CB.Y1+1

				jsr DRAW.BM
*			>DEBUG	
*				>LDYA ZPWNDPtr
				>LDYA L.WND.Desktop
				jmp CB.FlushBufToYA
				
.9				rts				
*--------------------------------------
*--------------------------------------
MAN
SAVE usr/src/lib/libgui.s.mbox
LOAD usr/src/lib/libgui.s
ASM