43 lines
607 B
Plaintext
43 lines
607 B
Plaintext
Window::new:
|
|
pushi $1c0 ; 448, container
|
|
push1
|
|
lofsa screenRect
|
|
push
|
|
pushi $9a ; 154, yourself
|
|
push0
|
|
pushi $8d ; 141, new
|
|
push0
|
|
super Plane, $4
|
|
bnot
|
|
send $a
|
|
bnot
|
|
ret
|
|
|
|
Window::init:
|
|
pToa container
|
|
not
|
|
bnt code_0086
|
|
lofsa screenRect
|
|
aTop container
|
|
code_0086: pTos back
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
bnt code_0091
|
|
lag global[$55]
|
|
aTop back
|
|
code_0091: pushi $94 ; 148, init
|
|
push0
|
|
&rest $1
|
|
super Plane, $4
|
|
bnot
|
|
ret
|
|
|
|
Window::center:
|
|
pushi $de ; 222, centerIn
|
|
push1
|
|
pTos container
|
|
self $6
|
|
bnot
|
|
ret
|
|
|