Selector::init:
		link	$1
		lap	param[$0]
		bnt	code_01d0
		lap	param[$1]
		jmp	code_01e2

code_01d0:	pToa	client
		not
		bnt	code_01e0
		pushi	$1d0		; 464, pScreen
		push0
		lag	global[$3]
		send	$4
		bnot
		jmp	code_01e2

code_01e0:	pToa	client
code_01e2:	aTop	client
		pToa	font
		not
		bnt	code_01ed
		lag	global[$3b]
		aTop	font
code_01ed:	pToa	selectColor
		not
		bnt	code_01f6
		lag	global[$61]
		aTop	selectColor
code_01f6:	pushi	$1d0		; 464, pScreen
		push0
		lag	global[$3]
		send	$4
		bnot
		push
		pToa	client
		eq?
		bnt	code_020f
		pushi	$9f		; 159, add
		push1
		pushSelf
		pToa	client
		send	$6
		bnot
code_020f:	pTos	top
		pToa	bottom
		eq?
		bnt	code_021d
		pushi	$1be		; 446, setSize
		push0
		self	$4
		bnot
code_021d:	pToa	elements
		bnt	code_024b
		pushi	$5a		; 90, 'Z', size
		push0
		send	$4
		bnot
		bnt	code_024b
		pushi	$97		; 151, isKindOf
		push1
		class	<NIL>
		push
		pToa	elements
		send	$6
		bnot
		bnt	code_024b
		pushi	$e1		; 225, height
		push0
		pushi	$4b		; 75, 'K', at
		push1
		push0
		pToa	elements
		send	$6
		bnot
		send	$4
		bnot
		aTop	itemHeight
		jmp	code_025e

code_024b:	pTos	itemHeight
		push2
		push0
		pTos	font
		callk	kernel_73, $4
		bnot
		sat	temp[$0]
		lt?
		bnt	code_025e
		lat	temp[$0]
		aTop	itemHeight
code_025e:	pToa	allowDoubleClick
		bnt	code_0269
		pTos	state
		ldi	$2
		or
		aTop	state
code_0269:	ldi	$0
		aTop	doubleClickTime
		aTop	doubleClickObj
		aTop	curItem
		aTop	start
		pToa	scrollBox
		not
		bnt	code_046a
		pushi	$4e		; 78, 'N', width
		push1
		pTos	itemWidth
		pushi	$e1		; 225, height
		push1
		pTos	itemHeight
		pToa	itemsPerPage
		mul
		push
		pushi	$db		; 219, moveTo
		push2
		pTos	left
		pTos	bottom
		pushi	$17d		; 381, addItem
		push0
		pushi	$9a		; 154, yourself
		push0
		pushi	$8d		; 141, new
		push0
		class	<NIL>
		send	$4
		bnot
		aTop	scrollBox
		send	$1c
		bnot
		pushi	$23		; 35, '#', text
		push1
		pushi	$d0		; 208, with
		push1
		lofsa	string_0166	; "\030"
		push
		class	Str
		send	$6
		bnot
		push
		pushi	$25		; 37, '%', fore
		push1
		lsg	global[$54]
		pushi	$26		; 38, '&', back
		push1
		lsg	global[$5c]
		pushi	$1e7		; 487, normalColor
		push1
		lsg	global[$55]
		pushi	$2a		; 42, '*', font
		push1
		pTos	font
		pushi	$1c1		; 449, borderSize
		push1
		push1
		pushi	$1be		; 446, setSize
		push0
		pushi	$4e		; 78, 'N', width
		push1
		pushi	$a		; 10, inTop
		pushi	$51		; 81, 'Q', value
		push1
		pushi	$64		; 100, 'd', moveDone
		pushi	$29		; 41, ')', state
		push1
		push1
		pushi	$1c7		; 455, handler
		push1
		pushSelf
		pushi	$8d		; 141, new
		push0
		lag	global[$9]
		send	$4
		bnot
		aTop	upArrow
		send	$40
		bnot
		pushi	$db		; 219, moveTo
		push2
		pushi	$88		; 136, right
		push0
		pToa	scrollBox
		send	$4
		bnot
		push
		ldi	$6		; maxScale
		add
		push
		pushi	$89		; 137, top
		push0
		pToa	scrollBox
		send	$4
		bnot
		push
		pToa	upArrow
		send	$8
		bnot
		pushi	$23		; 35, '#', text
		push1
		pushi	$d0		; 208, with
		push1
		lofsa	string_0168	; "\031"
		push
		class	Str
		send	$6
		bnot
		push
		pushi	$2a		; 42, '*', font
		push1
		pTos	font
		pushi	$25		; 37, '%', fore
		push1
		lsg	global[$54]
		pushi	$26		; 38, '&', back
		push1
		lsg	global[$5c]
		pushi	$1e7		; 487, normalColor
		push1
		lsg	global[$55]
		pushi	$1c1		; 449, borderSize
		push1
		push1
		pushi	$1be		; 446, setSize
		push0
		pushi	$4e		; 78, 'N', width
		push1
		pushi	$a		; 10, inTop
		pushi	$51		; 81, 'Q', value
		push1
		pushi	$65		; 101, 'e', topString
		pushi	$29		; 41, ')', state
		push1
		push1
		pushi	$1c7		; 455, handler
		push1
		pushSelf
		pushi	$8d		; 141, new
		push0
		lag	global[$9]
		send	$4
		bnot
		aTop	downArrow
		send	$40
		bnot
		pushi	$db		; 219, moveTo
		push2
		pushi	$88		; 136, right
		push0
		pToa	scrollBox
		send	$4
		bnot
		push
		ldi	$6		; maxScale
		add
		push
		pushi	$8a		; 138, bottom
		push0
		pToa	scrollBox
		send	$4
		bnot
		push
		pushi	$e1		; 225, height
		push0
		pToa	downArrow
		send	$4
		bnot
		push
		pushi	$1c1		; 449, borderSize
		push0
		pToa	downArrow
		send	$4
		bnot
		sub
		sub
		push
		pToa	downArrow
		send	$8
		bnot
		pushi	$4e		; 78, 'N', width
		push1
		pushi	$a		; 10, inTop
		pushi	$e1		; 225, height
		push1
		pushi	$89		; 137, top
		push0
		pToa	downArrow
		send	$4
		bnot
		push
		pushi	$8a		; 138, bottom
		push0
		pToa	upArrow
		send	$4
		bnot
		sub
		push
		ldi	$4		; scaleX
		sub
		push
		pushi	$db		; 219, moveTo
		push2
		pushi	$88		; 136, right
		push0
		pToa	scrollBox
		send	$4
		bnot
		push
		ldi	$6		; maxScale
		add
		push
		pushi	$8a		; 138, bottom
		push0
		pToa	upArrow
		send	$4
		bnot
		push
		ldi	$3		; z
		add
		push
		pushi	$206		; 518, vTracking
		push1
		push1
		pushi	$1ff		; 511, topValue
		push1
		push0
		pushi	$200		; 512, bottomValue
		push1
		push2
		push1
		pushi	$5a		; 90, 'Z', size
		push0
		pToa	elements
		send	$4
		bnot
		push
		pToa	itemsPerPage
		sub
		push
		calle	export60025_3, $4
		bnot
		push
		pushi	$1fe		; 510, stepSize
		push1
		push2
		pushi	$5a		; 90, 'Z', size
		push0
		pToa	elements
		send	$4
		bnot
		push
		pTos	itemsPerPage
		calle	export60025_2, $4
		bnot
		push
		pushi	$205		; 517, thumbSize
		push1
		pushi	$a		; 10, inTop
		pushi	$207		; 519, theObj
		push1
		pushSelf
		pushi	$208		; 520, theSelector
		push1
		pushi	$d7		; 215, move
		pushi	$25		; 37, '%', fore
		push1
		lsg	global[$55]
		pushi	$26		; 38, '&', back
		push1
		lsg	global[$5d]
		pushi	$8d		; 141, new
		push0
		class	Slider
		send	$4
		bnot
		aTop	scrollBar
		send	$4a
		bnot
		pushi	$8d		; 141, new
		push0
		class	Set
		send	$4
		bnot
		aTop	displayList
		ldi	$0
		sat	temp[$0]
code_0456:	lst	temp[$0]
		pToa	itemsPerPage
		lt?
		bnt	code_046a
		pushi	$220		; 544, makeDisplayItem
		push1
		lst	temp[$0]
		self	$6
		bnot
		+at	temp[$0]
		jmp	code_0456

code_046a:	pTos	client
		pushi	$1d0		; 464, pScreen
		push0
		lag	global[$3]
		send	$4
		bnot
		eq?
		bnt	code_04b9
		pushi	$94		; 148, init
		push1
		pTos	client
		pToa	upArrow
		send	$6
		bnot
		pushi	$94		; 148, init
		push1
		pTos	client
		pToa	downArrow
		send	$6
		bnot
		pushi	$94		; 148, init
		push1
		pTos	client
		pToa	scrollBox
		send	$6
		bnot
		pushi	$94		; 148, init
		push1
		pTos	client
		pToa	scrollBar
		send	$6
		bnot
		pushi	$9d		; 157, eachElementDo
		push1
		pushi	$94		; 148, init
		pToa	displayList
		send	$6
		bnot
		pushi	$1ad		; 429, update
		push0
		self	$4
		bnot
		jmp	code_04ce

code_04b9:	pToa	client
		bnt	code_04ce
		pushi	$9f		; 159, add
		pushi	$4		; scaleX
		pTos	upArrow
		pTos	downArrow
		pTos	scrollBox
		pTos	scrollBar
		send	$c
		bnot
code_04ce:	ret

Selector::dispose:
		ldi	$0
		aTop	scrollBox
		aTop	downArrow
		aTop	upArrow
		aTop	scrollBar
		pToa	displayList
		bnt	code_04ec
		pushi	$a6		; 166, release
		push0
		pushi	$95		; 149, dispose
		push0
		send	$8
		bnot
		ldi	$0
		aTop	displayList
code_04ec:	pToa	elements
		bnt	code_04ff
		pushi	$a6		; 166, release
		push0
		pushi	$95		; 149, dispose
		push0
		send	$8
		bnot
		ldi	$0
		aTop	elements
code_04ff:	ldi	$0
		aTop	right
		aTop	bottom
		aTop	left
		aTop	top
		pushi	$95		; 149, dispose
		push0
		super	<NIL>, $4
		bnot
		ret

Selector::moveTo:
		link	$2
		pToa	scrollBox
		bnt	code_0573
		lsp	param[$1]
		pToa	left
		sub
		sat	temp[$0]
		lsp	param[$2]
		pToa	top
		sub
		sat	temp[$1]
		pushi	$dd		; 221, moveBy
		push2
		lst	temp[$0]
		push
		pToa	scrollBox
		send	$8
		bnot
		pToa	scrollBar
		bnt	code_0541
		pushi	$dd		; 221, moveBy
		push2
		lst	temp[$0]
		lst	temp[$1]
		send	$8
		bnot
code_0541:	pToa	upArrow
		bnt	code_0550
		pushi	$dd		; 221, moveBy
		push2
		lst	temp[$0]
		lst	temp[$1]
		send	$8
		bnot
code_0550:	pToa	downArrow
		bnt	code_055f
		pushi	$dd		; 221, moveBy
		push2
		lst	temp[$0]
		lst	temp[$1]
		send	$8
		bnot
code_055f:	pToa	displayList
		bnt	code_0573
		pushi	$9d		; 157, eachElementDo
		pushi	$3		; z
		pushi	$dd		; 221, moveBy
		lst	temp[$0]
		lst	temp[$1]
		send	$a
		bnot
code_0573:	pushi	$db		; 219, moveTo
		push2
		lsp	param[$1]
		lsp	param[$2]
		super	<NIL>, $8
		bnot
		ret

Selector::moveBy:
		pushi	$db		; 219, moveTo
		pushi	$3		; z
		pTos	left
		lap	param[$1]
		add
		push
		pTos	top
		lap	param[$2]
		add
		push
		push1
		self	$a
		bnot
		ret

Selector::setSize:
		pToa	scrollBox
		bnt	code_05be
		pushi	$af		; 175, union
		push1
		push
		self	$6
		bnot
		pushi	$af		; 175, union
		push1
		pTos	scrollBar
		self	$6
		bnot
		pushi	$af		; 175, union
		push1
		pTos	upArrow
		self	$6
		bnot
		pushi	$af		; 175, union
		push1
		pTos	downArrow
		self	$6
		bnot
code_05be:	ret

Selector::select:
		lap	param[$1]
		bnt	code_05cc
		pTos	state
		ldi	$8		; fixPriority
		or
		aTop	state
		jmp	code_05d3

code_05cc:	pTos	state
		ldi	$f7		; 247, cat
		and
		aTop	state
code_05d3:	pTos	state
		ldi	$8		; fixPriority
		and
		bnt	code_05e7
		pToa	curItem
		not
		bnt	code_05e7
		pushi	$1d4		; 468, selectItem
		push1
		push0
		self	$6
		bnot
code_05e7:	ret

Selector::draw:
		pToa	scrollBox
		bnt	code_05f2
		pushi	$57		; 87, 'W', draw
		push0
		send	$4
		bnot
code_05f2:	pToa	scrollBar
		bnt	code_05fc
		pushi	$57		; 87, 'W', draw
		push0
		send	$4
		bnot
code_05fc:	pToa	upArrow
		bnt	code_0606
		pushi	$57		; 87, 'W', draw
		push0
		send	$4
		bnot
code_0606:	pToa	downArrow
		bnt	code_0610
		pushi	$57		; 87, 'W', draw
		push0
		send	$4
		bnot
code_0610:	pToa	displayList
		bnt	code_0620
		pushi	$9d		; 157, eachElementDo
		push2
		pushi	$94		; 148, init
		pTos	client
		send	$8
		bnot
code_0620:	pushi	$1ad		; 429, update
		push0
		self	$4
		bnot
		ret

Selector::drawItem:
		link	$6
		lsp	param[$1]
		pToa	start
		lt?
		bt	code_0639
		lsp	param[$1]
		pTos	start
		pToa	itemsPerPage
		add
		ge?
code_0639:	bnt	code_063c
		ret

code_063c:	lsp	param[$1]
		pToa	start
		sub
		sat	temp[$2]
		pushi	$db		; 219, moveTo
		push2
		pushi	$87		; 135, left
		push0
		pToa	scrollBox
		send	$4
		bnot
		push
		pushi	$89		; 137, top
		push0
		pToa	scrollBox
		send	$4
		bnot
		push
		lst	temp[$2]
		pToa	itemHeight
		mul
		add
		push
		ldi	$1
		add
		push
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$2]
		pToa	displayList
		send	$6
		bnot
		sat	temp[$4]
		send	$8
		bnot
		pushi	$21e		; 542, updateItem
		push2
		lst	temp[$4]
		lsp	param[$1]
		self	$8
		bnot
		bnt	code_0687
		ldi	$0
		jmp	code_072a

code_0687:	lsp	param[$1]
		pushi	$5a		; 90, 'Z', size
		push0
		pToa	elements
		send	$4
		bnot
		lt?
		bnt	code_06fe
		pushi	$4b		; 75, 'K', at
		push1
		lsp	param[$1]
		pToa	elements
		send	$6
		bnot
		sat	temp[$3]
		pushi	$57		; 87, 'W', draw
		push1
		lsp	param[$0]
		ldi	$1
		gt?
		push
		lat	temp[$3]
		send	$6
		bnot
		pushi	$11		; 17, bitmap
		push0
		lat	temp[$4]
		send	$4
		bnot
		bnt	code_06db
		push1
		lst	temp[$4]
		callk	kernel_31, $2
		bnot
		pushi	$9f		; 159, add
		push1
		pushi	$11		; 17, bitmap
		push0
		lat	temp[$4]
		send	$4
		bnot
		push
		lag	global[$66]
		send	$6
		bnot
		pushi	$11		; 17, bitmap
		push1
		push0
		lat	temp[$4]
		send	$6
		bnot
code_06db:	pushi	$11		; 17, bitmap
		push1
		pushi	$11		; 17, bitmap
		push0
		lat	temp[$3]
		send	$4
		bnot
		push
		lat	temp[$4]
		send	$6
		bnot
		pushi	$11		; 17, bitmap
		push1
		push0
		lat	temp[$3]
		send	$6
		bnot
		push1
		lst	temp[$4]
		callk	kernel_30, $2
		bnot
		jmp	code_072a

code_06fe:	pushi	$11		; 17, bitmap
		push0
		lat	temp[$4]
		send	$4
		bnot
		bnt	code_072a
		pushi	$9f		; 159, add
		push1
		pushi	$11		; 17, bitmap
		push0
		lat	temp[$4]
		send	$4
		bnot
		push
		lag	global[$66]
		send	$6
		bnot
		pushi	$11		; 17, bitmap
		push1
		push0
		lat	temp[$4]
		send	$6
		bnot
		push1
		lst	temp[$4]
		callk	kernel_31, $2
		bnot
code_072a:	lat	temp[$4]
		ret

Selector::updateItem:
		ldi	$0
		ret

Selector::selectItem:
		link	$1
		lsp	param[$0]
		ldi	$1
		gt?
		bnt	code_073b
		lap	param[$2]
code_073b:	sat	temp[$0]
		pushi	$5a		; 90, 'Z', size
		push0
		pToa	elements
		send	$4
		bnot
		bnt	code_0762
		lsp	param[$1]
		pushi	$5a		; 90, 'Z', size
		push0
		pToa	elements
		send	$4
		bnot
		ge?
		bnt	code_0762
		pushi	$5a		; 90, 'Z', size
		push0
		pToa	elements
		send	$4
		bnot
		push
		ldi	$1
		sub
		sap	param[$1]
code_0762:	pTos	curItem
		pushi	$4b		; 75, 'K', at
		push1
		lsp	param[$1]
		pToa	elements
		send	$6
		bnot
		eq?
		bt	code_077c
		lsp	param[$1]
		pushi	$5a		; 90, 'Z', size
		push0
		pToa	elements
		send	$4
		bnot
		ge?
code_077c:	bnt	code_077f
		ret

code_077f:	pToa	curItem
		bnt	code_079b
		lat	temp[$0]
		not
		bnt	code_079b
		pushi	$21d		; 541, drawItem
		push1
		pushi	$ae		; 174, indexOf
		push1
		pTos	curItem
		pToa	elements
		send	$6
		bnot
		push
		self	$6
		bnot
code_079b:	lat	temp[$0]
		bt	code_07ae
		pushi	$ae		; 174, indexOf
		push1
		pTos	curItem
		pToa	elements
		send	$6
		bnot
		push
		lap	param[$1]
		ne?
code_07ae:	bnt	code_07cd
		pushi	$4b		; 75, 'K', at
		push1
		lsp	param[$1]
		pToa	elements
		send	$6
		bnot
		aTop	curItem
		pushi	$21d		; 541, drawItem
		push2
		lsp	param[$1]
		pTos	selectColor
		self	$8
		bnot
		lap	param[$1]
		aTop	value
		jmp	code_07d5

code_07cd:	ldi	$0
		aTop	curItem
		ldi	$ff		; 255, asInteger
		aTop	value
code_07d5:	ret

Selector::update:
		link	$2
		pToa	scrollBox
		bnt	code_0918
		pushi	$5a		; 90, 'Z', size
		push0
		pToa	elements
		send	$4
		bnot
		push
		pToa	itemsPerPage
		le?
		bnt	code_0884
		pToa	upArrow
		bnt	code_07fd
		pushi	$25		; 37, '%', fore
		push1
		lsg	global[$5d]
		pushi	$1b4		; 436, enable
		push1
		push0
		send	$c
		bnot
code_07fd:	pToa	downArrow
		bnt	code_080e
		pushi	$25		; 37, '%', fore
		push1
		lsg	global[$5d]
		pushi	$1b4		; 436, enable
		push1
		push0
		send	$c
		bnot
code_080e:	pToa	scrollBar
		bnt	code_081f
		pushi	$25		; 37, '%', fore
		push1
		lsg	global[$5d]
		pushi	$1b4		; 436, enable
		push1
		push0
		send	$c
		bnot
code_081f:	pToa	scrollBar
		bnt	code_0918
		pushi	$201		; 513, thumb
		push0
		send	$4
		bnot
		bnt	code_0918
		pushi	$11		; 17, bitmap
		push0
		pushi	$201		; 513, thumb
		push0
		pToa	scrollBar
		send	$4
		bnot
		send	$4
		bnot
		bnt	code_0918
		pushi	$94		; 148, init
		push0
		pushi	$8d		; 141, new
		push0
		class	Clut
		send	$4
		bnot
		sat	temp[$1]
		send	$4
		bnot
		pushi	$4b		; 75, 'K', at
		push2
		lsg	global[$55]
		lsg	global[$5c]
		lat	temp[$1]
		send	$8
		bnot
		pushi	$3		; z
		pushi	$a		; 10, inTop
		pushi	$11		; 17, bitmap
		push0
		pushi	$201		; 513, thumb
		push0
		pToa	scrollBar
		send	$4
		bnot
		send	$4
		bnot
		push
		lst	temp[$1]
		callk	kernel_35, $6
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$1]
		send	$4
		bnot
		jmp	code_0918

code_0884:	pToa	upArrow
		bnt	code_0895
		pushi	$25		; 37, '%', fore
		push1
		lsg	global[$54]
		pushi	$1b4		; 436, enable
		push1
		push1
		send	$c
		bnot
code_0895:	pToa	downArrow
		bnt	code_08a6
		pushi	$25		; 37, '%', fore
		push1
		lsg	global[$54]
		pushi	$1b4		; 436, enable
		push1
		push1
		send	$c
		bnot
code_08a6:	pToa	scrollBar
		bnt	code_08b7
		pushi	$25		; 37, '%', fore
		push1
		lsg	global[$55]
		pushi	$1b4		; 436, enable
		push1
		push1
		send	$c
		bnot
code_08b7:	pToa	scrollBar
		bnt	code_0918
		pushi	$201		; 513, thumb
		push0
		send	$4
		bnot
		bnt	code_0918
		pushi	$11		; 17, bitmap
		push0
		pushi	$201		; 513, thumb
		push0
		pToa	scrollBar
		send	$4
		bnot
		send	$4
		bnot
		bnt	code_0918
		pushi	$94		; 148, init
		push0
		pushi	$8d		; 141, new
		push0
		class	Clut
		send	$4
		bnot
		sat	temp[$1]
		send	$4
		bnot
		pushi	$4b		; 75, 'K', at
		push2
		lsg	global[$5c]
		lsg	global[$55]
		lat	temp[$1]
		send	$8
		bnot
		pushi	$3		; z
		pushi	$a		; 10, inTop
		pushi	$11		; 17, bitmap
		push0
		pushi	$201		; 513, thumb
		push0
		pToa	scrollBar
		send	$4
		bnot
		send	$4
		bnot
		push
		lst	temp[$1]
		callk	kernel_35, $6
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$1]
		send	$4
		bnot
code_0918:	ldi	$0
		sat	temp[$0]
code_091c:	lst	temp[$0]
		pToa	itemsPerPage
		lt?
		bnt	code_0934
		pushi	$21d		; 541, drawItem
		push1
		lst	temp[$0]
		pToa	start
		add
		push
		self	$6
		bnot
		+at	temp[$0]
		jmp	code_091c

code_0934:	pToa	curItem
		bnt	code_0964
		pushi	$ae		; 174, indexOf
		push1
		push
		pToa	elements
		send	$6
		bnot
		sat	temp[$0]
		pTos	start
		le?
		bnt	code_0964
		pprev
		pTos	start
		pToa	itemsPerPage
		add
		push
		ldi	$1
		sub
		le?
		bnt	code_0964
		ldi	$0
		aTop	curItem
		pushi	$1d4		; 468, selectItem
		push2
		lst	temp[$0]
		push1
		self	$8
		bnot
code_0964:	ret

Selector::handleEvent:
		link	$6
		ldi	$0
		sat	temp[$5]
		pushi	$50		; 80, 'P', claimed
		push0
		lap	param[$1]
		send	$4
		bnot
		bt	code_097b
		pTos	state
		ldi	$1
		and
		not
code_097b:	bnt	code_0982
		ldi	$0
		jmp	code_0bef

code_0982:	pTos	state
		ldi	$8		; fixPriority
		and
		bnt	code_0a50
		pushi	$2b		; 43, '+', type
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		ldi	$10		; 16, cel
		eq?
		bnt	code_0a50
		pushi	$31		; 49, '1', message
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		dup
		ldi	$1
		eq?
		bnt	code_09f3
		pushi	$50		; 80, 'P', claimed
		push1
		push1
		lap	param[$1]
		send	$6
		bnot
		ldi	$1
		sat	temp[$5]
		pushi	$ae		; 174, indexOf
		push1
		pTos	curItem
		pToa	elements
		send	$6
		bnot
		sat	temp[$4]
		push
		ldi	$ff		; 255, asInteger
		ne?
		bnt	code_0a4c
		lst	temp[$4]
		ldi	$0
		gt?
		bnt	code_0a4c
		-at	temp[$4]
		push
		pToa	start
		lt?
		bnt	code_09e7
		pushi	$d7		; 215, move
		push1
		pTos	start
		ldi	$1
		sub
		push
		self	$6
		bnot
code_09e7:	pushi	$1d4		; 468, selectItem
		push1
		lst	temp[$4]
		self	$6
		bnot
		jmp	code_0a4c

code_09f3:	dup
		ldi	$5		; scaleY
		eq?
		bnt	code_0a4c
		pushi	$50		; 80, 'P', claimed
		push1
		push1
		lap	param[$1]
		send	$6
		bnot
		ldi	$1
		sat	temp[$5]
		pushi	$ae		; 174, indexOf
		push1
		pTos	curItem
		pToa	elements
		send	$6
		bnot
		sat	temp[$4]
		push
		ldi	$ff		; 255, asInteger
		ne?
		bnt	code_0a4c
		lst	temp[$4]
		pushi	$5a		; 90, 'Z', size
		push0
		pToa	elements
		send	$4
		bnot
		push
		ldi	$1
		sub
		lt?
		bnt	code_0a4c
		+at	temp[$4]
		push
		pTos	start
		pToa	itemsPerPage
		add
		ge?
		bnt	code_0a43
		pushi	$d7		; 215, move
		push1
		pTos	start
		ldi	$1
		add
		push
		self	$6
		bnot
code_0a43:	pushi	$1d4		; 468, selectItem
		push1
		lst	temp[$4]
		self	$6
		bnot
code_0a4c:	toss
		jmp	code_0bef

code_0a50:	pushi	$2b		; 43, '+', type
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		ldi	$1
		and
		bnt	code_0afd
		pushi	$eb		; 235, onMe
		push1
		lsp	param[$1]
		pToa	scrollBox
		send	$6
		bnot
		bnt	code_0afd
		pushi	$50		; 80, 'P', claimed
		push1
		push1
		lap	param[$1]
		send	$6
		bnot
		ldi	$1
		sat	temp[$5]
		push2
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		pushi	$89		; 137, top
		push0
		pToa	scrollBox
		send	$4
		bnot
		sub
		push
		pushi	$e1		; 225, height
		push0
		pToa	scrollBox
		send	$4
		bnot
		push
		pToa	itemsPerPage
		div
		div
		sat	temp[$3]
		pToa	allowDoubleClick
		bnt	code_0ada
		pTos	doubleClickObj
		pToa	curItem
		eq?
		bnt	code_0ada
		pushi	$ae		; 174, indexOf
		push1
		pTos	curItem
		pToa	elements
		send	$6
		bnot
		push
		lst	temp[$3]
		pToa	start
		add
		eq?
		bnt	code_0ada
		push0
		callk	kernel_121, $0
		bnot
		push
		pToa	doubleClickTime
		sub
		push
		ldi	$14		; 20, nsRight
		lt?
		bnt	code_0ada
		selfID
		sat	temp[$5]
		pushi	$50		; 80, 'P', claimed
		push1
		push1
		lap	param[$1]
		send	$6
		bnot
		jmp	code_0bef

code_0ada:	pushi	$1d4		; 468, selectItem
		push1
		lst	temp[$3]
		pToa	start
		add
		push
		self	$6
		bnot
		pToa	curItem
		aTop	doubleClickObj
		push0
		callk	kernel_121, $0
		bnot
		aTop	doubleClickTime
		push0
		callk	kernel_33, $0
		bnot
		ldi	$0
		ret

		jmp	code_0bef

code_0afd:	pushi	$2b		; 43, '+', type
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		ldi	$1
		and
		bnt	code_0bef
		pushi	$eb		; 235, onMe
		push1
		lsp	param[$1]
		pToa	scrollBar
		send	$6
		bnot
		bnt	code_0bef
		pushi	$201		; 513, thumb
		push0
		pToa	scrollBar
		send	$4
		bnot
		sat	temp[$2]
		pushi	$50		; 80, 'P', claimed
		push1
		push1
		lap	param[$1]
		send	$6
		bnot
		pushi	$a3		; 163, contains
		push1
		lsp	param[$1]
		lat	temp[$2]
		send	$6
		bnot
		bnt	code_0b5a
		pushi	$200		; 512, bottomValue
		push1
		pushi	$5a		; 90, 'Z', size
		push0
		pToa	elements
		send	$4
		bnot
		push
		pToa	scrollBar
		send	$6
		bnot
		pushi	$20c		; 524, trackSlider
		push1
		push1
		pToa	scrollBar
		send	$6
		bnot
		jmp	code_0bec

code_0b5a:	push2
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		pushi	$89		; 137, top
		push0
		lat	temp[$2]
		send	$4
		bnot
		lt?
		bnt	code_0bad
		pushi	$200		; 512, bottomValue
		push1
		push2
		push1
		pushi	$5a		; 90, 'Z', size
		push0
		pToa	elements
		send	$4
		bnot
		push
		pToa	itemsPerPage
		sub
		push
		calle	export60025_3, $4
		bnot
		push
		pToa	scrollBar
		send	$6
		bnot
		pushi	$d7		; 215, move
		push1
		pTos	start
		pToa	itemsPerPage
		sub
		push
		self	$6
		bnot
		pushi	$51		; 81, 'Q', value
		push1
		pTos	start
		pushi	$1ad		; 429, update
		push0
		pToa	scrollBar
		send	$a
		bnot
		jmp	code_0bec

code_0bad:	pushi	$200		; 512, bottomValue
		push1
		push2
		push1
		pushi	$5a		; 90, 'Z', size
		push0
		pToa	elements
		send	$4
		bnot
		push
		pToa	itemsPerPage
		sub
		push
		calle	export60025_3, $4
		bnot
		push
		pToa	scrollBar
		send	$6
		bnot
		pushi	$d7		; 215, move
		push1
		pTos	start
		pToa	itemsPerPage
		add
		push
		ldi	$1
		add
		push
		self	$6
		bnot
		pushi	$51		; 81, 'Q', value
		push1
		pTos	start
		pushi	$1ad		; 429, update
		push0
		pToa	scrollBar
		send	$a
		bnot
code_0bec:	ldi	$0
		ret

code_0bef:	lat	temp[$5]
		ret

Selector::doit:
		lsp	param[$0]
		ldi	$1
		gt?
		bnt	code_0c82
		lsp	param[$2]
		ldi	$45		; 69, 'E', doit
		eq?
		bnt	code_0c82
		lsp	param[$1]
		dup
		pToa	upArrow
		eq?
		bnt	code_0c3e
		pTos	start
		ldi	$0
		gt?
		bnt	code_0c7f
		pushi	$200		; 512, bottomValue
		push1
		push2
		push1
		pushi	$5a		; 90, 'Z', size
		push0
		pToa	elements
		send	$4
		bnot
		push
		pToa	itemsPerPage
		sub
		push
		calle	export60025_3, $4
		bnot
		push
		pToa	scrollBar
		send	$6
		bnot
		pushi	$210		; 528, retreat
		push0
		pToa	scrollBar
		send	$4
		bnot
		jmp	code_0c7f

code_0c3e:	dup
		pToa	downArrow
		eq?
		bnt	code_0c7f
		pTos	start
		pToa	itemsPerPage
		add
		push
		pushi	$5a		; 90, 'Z', size
		push0
		pToa	elements
		send	$4
		bnot
		le?
		bnt	code_0c7f
		pushi	$200		; 512, bottomValue
		push1
		push2
		push1
		pushi	$5a		; 90, 'Z', size
		push0
		pToa	elements
		send	$4
		bnot
		push
		pToa	itemsPerPage
		sub
		push
		calle	export60025_3, $4
		bnot
		push
		pToa	scrollBar
		send	$6
		bnot
		pushi	$20f		; 527, advance
		push0
		pToa	scrollBar
		send	$4
		bnot
code_0c7f:	toss
		jmp	code_0c86

code_0c82:	pToa	curItem
		aTop	value
code_0c86:	ldi	$1
		ret

Selector::move:
		link	$1
		lap	param[$0]
		bnt	code_0ce4
		pToa	start
		sat	temp[$0]
		lap	param[$1]
		aTop	start
		pTos	start
		ldi	$0
		lt?
		bnt	code_0ca3
		ldi	$0
		aTop	start
code_0ca3:	pTos	start
		pToa	itemsPerPage
		add
		push
		pushi	$5a		; 90, 'Z', size
		push0
		pToa	elements
		send	$4
		bnot
		gt?
		bnt	code_0cd6
		pushi	$5a		; 90, 'Z', size
		push0
		pToa	elements
		send	$4
		bnot
		push
		pToa	itemsPerPage
		lt?
		bnt	code_0cc8
		ldi	$0
		aTop	start
		jmp	code_0cd6

code_0cc8:	pushi	$5a		; 90, 'Z', size
		push0
		pToa	elements
		send	$4
		bnot
		push
		pToa	itemsPerPage
		sub
		aTop	start
code_0cd6:	pTos	start
		lat	temp[$0]
		ne?
		bnt	code_0ce4
		pushi	$1ad		; 429, update
		push0
		self	$4
		bnot
code_0ce4:	pToa	start
		ret

Selector::setList:
		link	$2
		pToa	elements
		bnt	code_0cfc
		pushi	$a6		; 166, release
		push0
		pushi	$95		; 149, dispose
		push0
		send	$8
		bnot
		ldi	$0
		aTop	elements
code_0cfc:	pushi	$8d		; 141, new
		push0
		class	Set
		send	$4
		bnot
		aTop	elements
		ldi	$0
		sat	temp[$0]
code_0d0b:	lst	temp[$0]
		pushi	$5a		; 90, 'Z', size
		push0
		lap	param[$1]
		send	$4
		bnot
		lt?
		bnt	code_0d32
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$0]
		lap	param[$1]
		send	$6
		bnot
		sat	temp[$1]
		pushi	$9f		; 159, add
		push1
		push
		pToa	elements
		send	$6
		bnot
		+at	temp[$0]
		jmp	code_0d0b

code_0d32:	ret

Selector::makeDisplayItem:
		link	$1
		pushi	$9f		; 159, add
		push1
		pushi	$4e		; 78, 'N', width
		push1
		pushi	$4e		; 78, 'N', width
		push0
		pToa	scrollBox
		send	$4
		bnot
		push
		ldi	$1
		sub
		push
		pushi	$e1		; 225, height
		push1
		pTos	itemHeight
		pushi	$db		; 219, moveTo
		push2
		pushi	$87		; 135, left
		push0
		pToa	scrollBox
		send	$4
		bnot
		push
		pushi	$89		; 137, top
		push0
		pToa	scrollBox
		send	$4
		bnot
		push
		lsp	param[$1]
		pToa	itemHeight
		mul
		add
		push
		pushi	$9a		; 154, yourself
		push0
		pushi	$8d		; 141, new
		push0
		class	<NIL>
		send	$4
		bnot
		sat	temp[$0]
		send	$18
		bnot
		push
		pToa	displayList
		send	$6
		bnot
		lat	temp[$0]
		ret

TextSelector::dispose:
		pToa	elements
		bnt	code_0d98
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	elements
code_0d98:	pushi	$95		; 149, dispose
		push0
		super	Selector, $4
		bnot
		ret

TextSelector::setList:
		link	$3
		pToa	elements
		bnt	code_0db6
		pushi	$a6		; 166, release
		push0
		pushi	$95		; 149, dispose
		push0
		send	$8
		bnot
		ldi	$0
		aTop	elements
code_0db6:	pushi	$8d		; 141, new
		push0
		class	Set
		send	$4
		bnot
		aTop	elements
		ldi	$0
		sat	temp[$0]
code_0dc5:	lst	temp[$0]
		pushi	$5a		; 90, 'Z', size
		push0
		lap	param[$1]
		send	$4
		bnot
		lt?
		bnt	code_0e4a
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$0]
		lap	param[$1]
		send	$6
		bnot
		sat	temp[$2]
		push1
		push
		calle	export60000_0, $2
		bnot
		bnt	code_0df6
		pushi	$97		; 151, isKindOf
		push1
		class	Str
		push
		lat	temp[$2]
		send	$6
		bnot
code_0df6:	bt	code_0e05
		push2
		pushi	$4		; scaleX
		lst	temp[$2]
		callk	kernel_105, $4
		bnot
		push
		ldi	$33		; 51, '3', play
		eq?
code_0e05:	bnt	code_0e45
		pushi	$221		; 545, pSelector
		push1
		pushSelf
		pushi	$94		; 148, init
		push1
		lst	temp[$2]
		pushi	$8d		; 141, new
		push0
		lofsa	SelectorText
		send	$4
		bnot
		sat	temp[$1]
		send	$c
		bnot
		pushi	$4e		; 78, 'N', width
		push0
		lat	temp[$1]
		send	$4
		bnot
		push
		pToa	itemWidth
		gt?
		bnt	code_0e3a
		pushi	$4e		; 78, 'N', width
		push0
		lat	temp[$1]
		send	$4
		bnot
		aTop	itemWidth
code_0e3a:	pushi	$9f		; 159, add
		push1
		lst	temp[$1]
		pToa	elements
		send	$6
		bnot
code_0e45:	+at	temp[$0]
		jmp	code_0dc5

code_0e4a:	ret

SelectorText::init:
		lap	param[$0]
		bnt	code_0e53
		lap	param[$1]
		aTop	text
code_0e53:	pToa	text
		bnt	code_0e7d
		pushi	$e5		; 229, sizeToStr
		pushi	$3		; z
		push
		pToa	pSelector
		bnt	code_0e75
		pushi	$2a		; 42, '*', font
		push0
		send	$4
		bnot
		bnt	code_0e75
		pushi	$2a		; 42, '*', font
		push0
		pToa	pSelector
		send	$4
		bnot
		jmp	code_0e77

code_0e75:	lag	global[$3b]
code_0e77:	push
		pushi	$ff		; 255, asInteger
		self	$a
		bnot
code_0e7d:	pushi	$94		; 148, init
		push0
		super	BitMap, $4
		bnot
		ret

SelectorText::dispose:
		pushi	$95		; 149, dispose
		push0
		pToa	text
		send	$4
		bnot
		pushi	$95		; 149, dispose
		push0
		&rest	$1
		super	BitMap, $4
		bnot
		ret

SelectorText::addToCast:
		ret

SelectorText::draw:
		link	$1
		lap	param[$1]
		bnt	code_0eae
		pushi	$1e8		; 488, selectColor
		push0
		pToa	pSelector
		send	$4
		bnot
		sat	temp[$0]
		jmp	code_0eb8

code_0eae:	pushi	$26		; 38, '&', back
		push0
		pToa	pSelector
		send	$4
		bnot
		sat	temp[$0]
code_0eb8:	pToa	bitmap
		not
		bnt	code_0edf
		pushi	$5		; scaleY
		push0
		pushi	$213		; 531, itemWidth
		push0
		pToa	pSelector
		send	$4
		bnot
		push
		pushi	$212		; 530, itemHeight
		push0
		pToa	pSelector
		send	$4
		bnot
		push
		pushi	$fe		; 254, strIndex
		lst	temp[$0]
		callk	kernel_35, $a
		bnot
		aTop	bitmap
code_0edf:	pushi	$17d		; 381, addItem
		pushi	$7		; priority
		pushi	$3		; z
		pTos	text
		push0
		push0
		pushi	$25		; 37, '%', fore
		push0
		pToa	pSelector
		send	$4
		bnot
		push
		pushi	$fe		; 254, strIndex
		pushi	$2a		; 42, '*', font
		push0
		pToa	pSelector
		send	$4
		bnot
		bnt	code_0f0b
		pushi	$2a		; 42, '*', font
		push0
		pToa	pSelector
		send	$4
		bnot
		jmp	code_0f0d

code_0f0b:	lag	global[$3b]
code_0f0d:	push
		self	$12
		bnot
		ret

