mirror of https://github.com/A2osX/A2osX.git
52 lines
962 B
Plaintext
52 lines
962 B
Plaintext
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
|