144 lines
1.9 KiB
Plaintext
144 lines
1.9 KiB
Plaintext
IconItem::init:
|
|
pushi $94 ; 148, init
|
|
push1
|
|
lap param[$0]
|
|
bnt code_00a8
|
|
lap param[$1]
|
|
jmp code_00aa
|
|
|
|
code_00a8: ldi $0
|
|
code_00aa: push
|
|
super <NIL>, $6
|
|
bnot
|
|
pToa cycler
|
|
not
|
|
bnt code_00d2
|
|
lsp param[$0]
|
|
ldi $1
|
|
gt?
|
|
bnt code_00d2
|
|
lap param[$2]
|
|
bnt code_00d2
|
|
pushi $94 ; 148, init
|
|
push1
|
|
pushSelf
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Fwd
|
|
send $4
|
|
bnot
|
|
aTop cycler
|
|
send $6
|
|
bnot
|
|
code_00d2: ret
|
|
|
|
IconItem::cycle:
|
|
link $1
|
|
pToa cycler
|
|
bnt code_00f2
|
|
pToa cel
|
|
sat temp[$0]
|
|
pushi $45 ; 69, 'E', doit
|
|
push0
|
|
pToa cycler
|
|
send $4
|
|
bnot
|
|
pTos cel
|
|
lat temp[$0]
|
|
ne?
|
|
bnt code_00f2
|
|
pushi $57 ; 87, 'W', draw
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_00f2: ret
|
|
|
|
IconItem::dispose:
|
|
pToa cycler
|
|
bnt code_00fe
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_00fe: pushi $95 ; 149, dispose
|
|
push0
|
|
super <NIL>, $4
|
|
bnot
|
|
ret
|
|
|
|
IconItem::setSize:
|
|
pTos view
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_011d
|
|
pushi $e6 ; 230, sizeToCel
|
|
pushi $3 ; z
|
|
pTos view
|
|
pTos loop
|
|
pTos cel
|
|
self $a
|
|
bnot
|
|
code_011d: ret
|
|
|
|
IconItem::draw:
|
|
link $1
|
|
pushi $57 ; 87, 'W', draw
|
|
push0
|
|
super <NIL>, $4
|
|
bnot
|
|
bnt code_012a
|
|
ret
|
|
|
|
code_012a: pToa bitmap
|
|
sat temp[$0]
|
|
bnt code_0141
|
|
push1
|
|
pushSelf
|
|
callk kernel_31, $2
|
|
bnot
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pTos bitmap
|
|
lag global[$66]
|
|
send $6
|
|
bnot
|
|
code_0141: push1
|
|
pushSelf
|
|
calle export60026_1, $2
|
|
bnot
|
|
aTop bitmap
|
|
lat temp[$0]
|
|
bnt code_0156
|
|
push1
|
|
pushSelf
|
|
callk kernel_30, $2
|
|
bnot
|
|
code_0156: ret
|
|
|
|
IconItem::showMouseOver:
|
|
ldi $0
|
|
ret
|
|
|
|
IconItem::handleEvent:
|
|
ldi $0
|
|
ret
|
|
|
|
IconItem::process:
|
|
ldi $0
|
|
ret
|
|
|
|
IconItem::contains:
|
|
ldi $0
|
|
ret
|
|
|
|
IconItem::lastCel:
|
|
push1
|
|
pushSelf
|
|
callk kernel_22, $2
|
|
bnot
|
|
push
|
|
ldi $1
|
|
sub
|
|
ret
|
|
|