207 lines
3.0 KiB
Plaintext
207 lines
3.0 KiB
Plaintext
WinDialogSet::add:
|
|
link $3
|
|
pushi $99 ; 153, respondsTo
|
|
push1
|
|
pushi $c8 ; 200, handleEvent
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
not
|
|
bnt code_00a6
|
|
push1
|
|
lofsa string_005c ; "Found it."
|
|
push
|
|
callk kernel_132, $2
|
|
bnot
|
|
code_00a6: pushi $9f ; 159, add
|
|
push1
|
|
lsp param[$1]
|
|
&rest $2
|
|
super Set, $6
|
|
bnot
|
|
ret
|
|
|
|
WinDialogHandler::init:
|
|
pToa pWindow
|
|
bnt code_00c3
|
|
push2
|
|
pushi $2c ; 44, ',', window
|
|
push
|
|
callk kernel_118, $4
|
|
bnot
|
|
ldi $0
|
|
aTop pWindow
|
|
code_00c3: push2
|
|
pushi $2b ; 43, '+', type
|
|
push2
|
|
pushi $9 ; inLeft
|
|
lsp param[$1]
|
|
callk kernel_91, $4
|
|
bnot
|
|
push
|
|
callk kernel_118, $4
|
|
bnot
|
|
aTop pWindow
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushSelf
|
|
class WinDialogSet
|
|
send $6
|
|
bnot
|
|
ret
|
|
|
|
WinDialogHandler::dispose:
|
|
pToa pWindow
|
|
bnt code_00f1
|
|
push2
|
|
pushi $2c ; 44, ',', window
|
|
push
|
|
callk kernel_118, $4
|
|
bnot
|
|
ldi $0
|
|
aTop pWindow
|
|
code_00f1: pushi $58 ; 88, 'X', delete
|
|
push1
|
|
pushSelf
|
|
class WinDialogSet
|
|
send $6
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
&rest $1
|
|
super Obj, $4
|
|
bnot
|
|
ret
|
|
|
|
WinDialogHandler::handleEvent:
|
|
ldi $0
|
|
ret
|
|
|
|
WinDialogHandler::disable:
|
|
push2
|
|
pushi $32 ; 50, '2', edit
|
|
pTos pWindow
|
|
callk kernel_118, $4
|
|
bnot
|
|
code_0111: pushi $2b ; 43, '+', type
|
|
push0
|
|
pushi $f3 ; 243, nextEvent
|
|
push1
|
|
pushi $7fff ; 32767
|
|
lag global[$e]
|
|
send $6
|
|
bnot
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $0
|
|
ne?
|
|
bnt code_012b
|
|
jmp code_0111
|
|
|
|
code_012b: ret
|
|
|
|
WinDialogHandler::enable:
|
|
push2
|
|
pushi $31 ; 49, '1', message
|
|
pTos pWindow
|
|
callk kernel_118, $4
|
|
bnot
|
|
code_0135: pushi $2b ; 43, '+', type
|
|
push0
|
|
pushi $f3 ; 243, nextEvent
|
|
push1
|
|
pushi $7fff ; 32767
|
|
lag global[$e]
|
|
send $6
|
|
bnot
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $0
|
|
ne?
|
|
bnt code_014f
|
|
jmp code_0135
|
|
|
|
code_014f: ret
|
|
|
|
DialogHandler::doit:
|
|
lap param[$0]
|
|
bnt code_016b
|
|
pushi $24e ; 590, handsOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
lap param[$1]
|
|
bnt code_0167
|
|
ldi $1
|
|
sag global[$32]
|
|
jmp code_016b
|
|
|
|
code_0167: ldi $0
|
|
aTop scratch
|
|
code_016b: ret
|
|
|
|
DialogHandler::init:
|
|
selfID
|
|
sag global[$13]
|
|
pushi $94 ; 148, init
|
|
push0
|
|
super Set, $4
|
|
bnot
|
|
pushi $9f ; 159, add
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
DialogHandler::dispose:
|
|
ldi $0
|
|
sag global[$13]
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
super Set, $4
|
|
bnot
|
|
ret
|
|
|
|
DialogHandler::handleEvent:
|
|
link $1
|
|
pushi $2b ; 43, '+', type
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $100 ; 256, strMax
|
|
and
|
|
bnt code_01b6
|
|
pushi $a0 ; 160, firstTrue
|
|
push2
|
|
pushi $c8 ; 200, handleEvent
|
|
lsp param[$1]
|
|
class WinDialogSet
|
|
send $8
|
|
bnot
|
|
pushi $50 ; 80, 'P', claimed
|
|
push1
|
|
push1
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
jmp code_01c2
|
|
|
|
code_01b6: pushi $a0 ; 160, firstTrue
|
|
push2
|
|
pushi $1ce ; 462, process
|
|
lsp param[$1]
|
|
self $8
|
|
bnot
|
|
code_01c2: pushi $50 ; 80, 'P', claimed
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
ret
|
|
|