::new: pushi $2a ; 42, '*', font push1 pTos font ldi $0 eq? bnt code_00d2 lag global[$3a] jmp code_00d4 code_00d2: pToa font code_00d4: push pushi $9a ; 154, yourself push0 pushi $8d ; 141, new push0 super BitMap, $4 bnot send $a bnot ret ::init: lap param[$0] bnt code_00f1 lap param[$1] bnt code_00f1 lap param[$1] jmp code_0103 code_00f1: pToa client not bnt code_0101 pushi $1d0 ; 464, pScreen push0 lag global[$3] send $4 bnot jmp code_0103 code_0101: pToa client code_0103: aTop client pTos fore ldi $ff ; 255, asInteger eq? bnt code_0110 lag global[$54] aTop fore code_0110: pTos top pToa bottom eq? bnt code_011e pushi $1be ; 446, setSize push0 self $4 bnot code_011e: pToa font not bnt code_0127 lag global[$3a] aTop font code_0127: push0 push0 pToa client send $4 bnot aTop plane pushi $57 ; 87, 'W', draw push0 self $4 bnot pushi $17b ; 379, addToCast push1 pTos client self $6 bnot ret ::dispose: pToa client bnt code_014b pushi $58 ; 88, 'X', delete push1 pushSelf send $6 bnot code_014b: push1 pTos helpStr calle export60000_0, $2 bnot bnt code_0164 pushi $95 ; 149, dispose push0 pToa helpStr send $4 bnot ldi $0 aTop helpStr code_0164: pushi $58 ; 88, 'X', delete push1 pushSelf lag global[$4d] send $6 bnot pushi $95 ; 149, dispose push0 super BitMap, $4 bnot ret ::doit: pToa handler bnt code_0186 pushi $45 ; 69, 'E', doit push2 pushSelf pushi $45 ; 69, 'E', doit send $8 bnot ret jmp code_0189 code_0186: pToa value ret code_0189: ret ::hide: pushi $69 ; 105, 'i', hide push0 &rest $1 super BitMap, $4 bnot pToa client bnt code_01a8 pushi $58 ; 88, 'X', delete push1 pushSelf send $6 bnot pushi $1d1 ; 465, addToDisposeList push1 pushSelf pToa client send $6 bnot code_01a8: ret ::show: pushi $75 ; 117, 'u', show push0 &rest $1 super BitMap, $4 bnot pToa client bnt code_01d9 pushi $9f ; 159, add push1 pushSelf send $6 bnot pushi $1d2 ; 466, disposeList push0 pToa client send $4 bnot bnt code_01d9 pushi $58 ; 88, 'X', delete push1 pushSelf pushi $1d2 ; 466, disposeList push0 pToa client send $4 bnot send $6 bnot code_01d9: ret ::draw: pTos signal ldi $f7 ; 247, cat and aTop signal pToa drawCode bnt code_01f1 pushi $45 ; 69, 'E', doit push1 pushSelf send $6 bnot bnt code_01f1 ldi $1 ret code_01f1: ldi $0 ret ::drawSelected: ret ::enable: lap param[$1] bnt code_0202 pTos state ldi $1 or aTop state jmp code_0209 code_0202: pTos state ldi $fe ; 254, strIndex and aTop state code_0209: lsp param[$0] ldi $1 eq? bt code_0213 lap param[$2] not code_0213: bnt code_021b pushi $57 ; 87, 'W', draw push0 self $4 bnot code_021b: ret ::select: link $1 lap param[$0] not bnt code_022b pTos state ldi $8 ; fixPriority and not jmp code_022d code_022b: lap param[$1] code_022d: sat temp[$0] bnt code_023a pTos state ldi $8 ; fixPriority or aTop state jmp code_0241 code_023a: pTos state ldi $f7 ; 247, cat and aTop state code_0241: pushi $57 ; 87, 'W', draw push0 self $4 bnot ret ::choose: pTos state ldi $4 ; scaleX xor aTop state pushi $57 ; 87, 'W', draw push0 self $4 bnot ret ::checkState: pTos state lap param[$1] and ret ::setSize: ldi $0 ret ::highlight: lap param[$1] bnt code_026c pTos state ldi $20 ; 32, ' ', name or aTop state jmp code_0273 code_026c: pTos state ldi $df ; 223, centerOn and aTop state code_0273: pushi $57 ; 87, 'W', draw push0 self $4 bnot ret ::cycle: ret ::help: pToa helpStr bnt code_0296 pushi $6 ; maxScale push pushi $77 ; 119, 'w', textTop lofsa string_006c ; "Continue" push push1 pushi $91 ; 145, bitPutIndex push2 calle export60029_0, $c bnot jmp code_0299 code_0296: ldi $0 ret code_0299: ret ::handleEvent: link $4 pushi $50 ; 80, 'P', claimed push0 lap param[$1] send $4 bnot bnt code_02a9 ldi $0 ret code_02a9: pushi $2b ; 43, '+', type push0 lap param[$1] send $4 bnot sat temp[$2] pushi $31 ; 49, '1', message push0 lap param[$1] send $4 bnot sat temp[$3] ldi $0 sat temp[$0] lst temp[$2] ldi $1 eq? bnt code_02d1 pushi $eb ; 235, onMe push1 lsp param[$1] self $6 bnot code_02d1: sat temp[$1] bnt code_02e1 pushi $48 ; 72, 'H', modifiers push0 lap param[$1] send $4 bnot push ldi $3 ; z and code_02e1: bt code_02f7 lst temp[$2] ldi $4 ; scaleX eq? bnt code_0330 lst temp[$3] ldi $3b00 ; 15104 eq? bnt code_0330 pTos state ldi $8 ; fixPriority and code_02f7: bnt code_0330 pushi $50 ; 80, 'P', claimed push1 push1 lap param[$1] send $6 bnot lat temp[$1] bnt code_0316 pToa canDrag bnt code_0316 pushi $ee ; 238, drag push1 lsp param[$1] self $6 bnot jmp code_03d2 code_0316: pushi $191 ; 401, help push0 self $4 bnot not bnt code_0329 pushi $50 ; 80, 'P', claimed push1 push0 lap param[$1] send $6 bnot code_0329: ldi $0 sat temp[$0] jmp code_03d2 code_0330: pTos state ldi $1 and not bnt code_033d ldi $0 jmp code_03d2 code_033d: lst temp[$2] ldi $4 ; scaleX eq? bnt code_03b8 pushi $1d3 ; 467, modal push0 pToa client send $4 bnot push ldi $0 ne? bnt code_03b8 push1 lst temp[$3] calle export60027_0, $2 bnot push pToa key eq? bt code_03a8 pTos client pushi $1d0 ; 464, pScreen push0 lag global[$3] send $4 bnot ne? bnt code_039a pTos key ldi $ff ; 255, asInteger gt? bnt code_039a push1 lst temp[$3] calle export60027_0, $2 bnot push push1 push1 pTos key calle export60025_6, $2 bnot push calle export60027_0, $2 bnot eq? code_039a: bt code_03a8 pTos state ldi $8 ; fixPriority and bnt code_03b8 lst temp[$3] ldi $d ; 13, seenRect eq? code_03a8: bnt code_03b8 pushi $50 ; 80, 'P', claimed push1 push1 lap param[$1] send $6 bnot selfID sat temp[$0] jmp code_03d2 code_03b8: lat temp[$1] bnt code_03d2 pushi $ec ; 236, track push1 lsp param[$1] self $6 bnot sat temp[$0] bnt code_03d2 pushi $50 ; 80, 'P', claimed push1 push1 lap param[$1] send $6 bnot code_03d2: lat temp[$0] ret ::process: link $1 pushi $b9 ; 185, localize push1 pTos plane lap param[$1] send $6 bnot pushi $50 ; 80, 'P', claimed push1 push1 lap param[$1] send $6 bnot pushi $2b ; 43, '+', type push0 lap param[$1] send $4 bnot push dup ldi $2 eq? bnt code_043d pushi $58 ; 88, 'X', delete push1 pushSelf lag global[$4d] send $6 bnot pTos state ldi $20 ; 32, ' ', name and bnt code_0413 pushi $1c9 ; 457, highlight push2 push0 push0 self $8 bnot code_0413: pushi $eb ; 235, onMe push1 lsp param[$1] self $6 bnot bnt code_044c pushi $1d4 ; 468, selectItem push2 pushSelf push1 pToa client send $8 bnot bnt code_0431 pushi $45 ; 69, 'E', doit push0 self $4 bnot code_0431: pushi $1d5 ; 469, returnHandler push1 pushSelf pToa client send $6 bnot jmp code_044c code_043d: dup ldi $0 eq? bnt code_044c pushi $ed ; 237, trackDoit push1 lsp param[$1] self $6 bnot code_044c: toss ret ::track: link $1 pushi $1d3 ; 467, modal push0 pToa client send $4 bnot push ldi $1 ne? bnt code_047f pushi $aa ; 170, addToFront push1 pushSelf lag global[$4d] send $6 bnot pushi $8c ; 140, scratch push1 pushSelf lag global[$4d] send $6 bnot pushi $50 ; 80, 'P', claimed push1 push1 lap param[$1] send $6 bnot ldi $0 ret code_047f: pushi $ec ; 236, track push1 lsp param[$1] &rest $2 super BitMap, $6 bnot sat temp[$0] pTos state ldi $20 ; 32, ' ', name and bnt code_049d pushi $1c9 ; 457, highlight push2 push0 push0 self $8 bnot code_049d: lat temp[$0] ret ::trackDoit: link $1 pushi $a3 ; 163, contains push1 lsp param[$1] self $6 bnot sat temp[$0] pTos state ldi $20 ; 32, ' ', name and bnt code_04b7 lat temp[$0] not code_04b7: bt code_04c3 pTos state ldi $20 ; 32, ' ', name and not bnt code_04d3 lat temp[$0] code_04c3: bnt code_04d3 pushi $1c9 ; 457, highlight push1 lst temp[$0] self $6 bnot push0 callk kernel_33, $0 bnot code_04d3: ret ::showMouseOver: pTos state ldi $1 and bnt code_04f0 pushi $1c9 ; 457, highlight push1 lap param[$0] bnt code_04e7 lap param[$1] jmp code_04ec code_04e7: pTos state ldi $20 ; 32, ' ', name and code_04ec: push self $6 bnot code_04f0: ret