mirror of
https://github.com/A2osX/A2osX.git
synced 2025-02-16 18:30:26 +00:00
81 lines
1.3 KiB
Plaintext
81 lines
1.3 KiB
Plaintext
|
NEW
|
|||
|
|
AUTO 3,1
|
|||
|
|
*--------------------------------------
|
|||
|
|
* NewLabel(HWND, pTEXT, wX, wY)
|
|||
|
|
*--------------------------------------
|
|||
|
|
LABEL.New >PULLW DY
|
|||
|
|
>PULLW DX
|
|||
|
|
>PULLW ZPPtr1
|
|||
|
|
jsr OBJ.PullHWND
|
|||
|
|
|
|||
|
|
LABEL.New.I lda #S.OBJ.T.LABEL
|
|||
|
|
|
|||
|
|
jsr OBJ.New
|
|||
|
|
bcs .9
|
|||
|
|
|
|||
|
|
phx hOBJ
|
|||
|
|
|
|||
|
|
jsr OBJ.SetDXDYX1Y1
|
|||
|
|
|
|||
|
|
ldy #S.LABEL.pTEXT
|
|||
|
|
lda ZPPtr1
|
|||
|
|
sta (ZPObjPtr),y
|
|||
|
|
pha
|
|||
|
|
iny
|
|||
|
|
lda ZPPtr1+1
|
|||
|
|
sta (ZPObjPtr),y
|
|||
|
|
ply
|
|||
|
|
|
|||
|
|
ldx hSYSFON
|
|||
|
|
jsr FON.GetTextSize2
|
|||
|
|
|
|||
|
|
ldx #3
|
|||
|
|
ldy #S.OBJ.W+3
|
|||
|
|
|
|||
|
|
.1 lda DX,x
|
|||
|
|
sta (ZPObjPtr),y
|
|||
|
|
dey
|
|||
|
|
dex
|
|||
|
|
bpl .1
|
|||
|
|
|
|||
|
|
>LDYA ZPObjPtr
|
|||
|
|
jsr OBJ.SetX2Y2
|
|||
|
|
|
|||
|
|
jsr WND.AddChild.I
|
|||
|
|
|
|||
|
|
pla hOBJ
|
|||
|
|
|
|||
|
|
clc
|
|||
|
|
|
|||
|
|
.9 rts
|
|||
|
|
*--------------------------------------
|
|||
|
|
LABEL.Enter
|
|||
|
|
LABEL.Leave clc
|
|||
|
|
rts
|
|||
|
|
*--------------------------------------
|
|||
|
|
LABEL.fPaint jsr CB.GetBuf
|
|||
|
|
bcs .9
|
|||
|
|
|
|||
|
|
lda #C.WHITE
|
|||
|
|
jsr CB.FillRectMonoA
|
|||
|
|
|
|||
|
|
jsr CB.GetObjX1Y1X2Y2
|
|||
|
|
|
|||
|
|
jsr CB.Cache2CBBufG
|
|||
|
|
|
|||
|
|
jsr CB.FlushBuf
|
|||
|
|
|
|||
|
|
ldy #S.LABEL.pTEXT
|
|||
|
|
jsr OBJ.GetPropAtY
|
|||
|
|
ldx hSYSFON
|
|||
|
|
jmp FON.DrawText2
|
|||
|
|
|
|||
|
|
.9 rts
|
|||
|
|
*--------------------------------------
|
|||
|
|
|
|||
|
|
*--------------------------------------
|
|||
|
|
MAN
|
|||
|
|
SAVE usr/src/lib/libgui.s.label
|
|||
|
|
LOAD usr/src/lib/libgui.s
|
|||
|
|
ASM
|