138 lines
2.0 KiB
Plaintext
138 lines
2.0 KiB
Plaintext
TextItem::draw:
|
|
link $1
|
|
pushi $57 ; 87, 'W', draw
|
|
push0
|
|
super <NIL>, $4
|
|
bnot
|
|
bnt code_00f8
|
|
ret
|
|
|
|
code_00f8: pToa bitmap
|
|
sat temp[$0]
|
|
bnt code_010f
|
|
push1
|
|
pushSelf
|
|
callk kernel_31, $2
|
|
bnot
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pTos bitmap
|
|
lag global[$66]
|
|
send $6
|
|
bnot
|
|
code_010f: push1
|
|
pushSelf
|
|
calle export60026_1, $2
|
|
bnot
|
|
aTop bitmap
|
|
lat temp[$0]
|
|
bnt code_0124
|
|
push1
|
|
pushSelf
|
|
callk kernel_30, $2
|
|
bnot
|
|
code_0124: ret
|
|
|
|
TextItem::setSize:
|
|
link $4
|
|
pToa text
|
|
bnt code_01b3
|
|
pToa left
|
|
sat temp[$2]
|
|
pToa top
|
|
sat temp[$3]
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Rect
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $e5 ; 229, sizeToStr
|
|
pushi $3 ; z
|
|
push2
|
|
pushi $9 ; inLeft
|
|
pTos text
|
|
callk kernel_91, $4
|
|
bnot
|
|
push
|
|
pTos font
|
|
lap param[$0]
|
|
bnt code_0159
|
|
lap param[$1]
|
|
jmp code_015b
|
|
|
|
code_0159: lag global[$67]
|
|
code_015b: push
|
|
lat temp[$0]
|
|
send $a
|
|
bnot
|
|
pTos view
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_0196
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Rect
|
|
send $4
|
|
bnot
|
|
sat temp[$1]
|
|
pushi $e6 ; 230, sizeToCel
|
|
pushi $3 ; z
|
|
pTos view
|
|
pTos loop
|
|
pTos cel
|
|
send $a
|
|
bnot
|
|
pushi $af ; 175, union
|
|
push1
|
|
lst temp[$1]
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
code_0196: pushi $d3 ; 211, copy
|
|
push1
|
|
lst temp[$0]
|
|
self $6
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
pushi $db ; 219, moveTo
|
|
push2
|
|
lst temp[$2]
|
|
lst temp[$3]
|
|
self $8
|
|
bnot
|
|
code_01b3: ret
|
|
|
|
TextItem::dispose:
|
|
push2
|
|
pushi $4 ; scaleX
|
|
pTos text
|
|
callk kernel_105, $4
|
|
bnot
|
|
push
|
|
ldi $34 ; 52, '4', number
|
|
eq?
|
|
bnt code_01d0
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
pToa text
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop text
|
|
code_01d0: pushi $95 ; 149, dispose
|
|
push0
|
|
super <NIL>, $4
|
|
bnot
|
|
ret
|
|
|