Button::process:
		link	$2
		pTos	signal
		ldi	$8		; fixPriority
		and
		bnt	code_00ec
		ldi	$0
		ret

code_00ec:	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_0167
		pushi	$58		; 88, 'X', delete
		push1
		pushSelf
		lag	global[$4d]
		send	$6
		bnot
		pTos	state
		ldi	$20		; 32, ' ', name
		and
		bnt	code_0128
		pushi	$1c9		; 457, highlight
		push2
		push0
		push0
		self	$8
		bnot
code_0128:	pushi	$a3		; 163, contains
		push1
		lsp	param[$1]
		self	$6
		bnot
		bnt	code_015f
		pushi	$ba		; 186, globalize
		push0
		lap	param[$1]
		send	$4
		bnot
		pToa	client
		sat	temp[$1]
		pushi	$1d4		; 468, selectItem
		push2
		pushSelf
		push1
		pToa	client
		send	$8
		bnot
		bnt	code_0153
		pushi	$45		; 69, 'E', doit
		push0
		self	$4
		bnot
code_0153:	pushi	$1d5		; 469, returnHandler
		push1
		pushSelf
		lat	temp[$1]
		send	$6
		bnot
		jmp	code_0176

code_015f:	pushi	$57		; 87, 'W', draw
		push0
		self	$4
		bnot
		jmp	code_0176

code_0167:	dup
		ldi	$0
		eq?
		bnt	code_0176
		pushi	$ed		; 237, trackDoit
		push1
		lsp	param[$1]
		self	$6
		bnot
code_0176:	toss
		pushi	$50		; 80, 'P', claimed
		push0
		lap	param[$1]
		send	$4
		bnot
		ret

Button::handleEvent:
		pTos	signal
		ldi	$8		; fixPriority
		and
		bt	code_019e
		pTos	btnType
		ldi	$2
		eq?
		bnt	code_01a5
		pTos	state
		ldi	$4		; scaleX
		and
		bnt	code_01a5
		pushi	$48		; 72, 'H', modifiers
		push0
		lap	param[$1]
		send	$4
		bnot
		not
code_019e:	bnt	code_01a5
		ldi	$0
		ret

		jmp	code_01b1

code_01a5:	pushi	$c8		; 200, handleEvent
		push1
		lsp	param[$1]
		&rest	$2
		super	TextItem, $6
		bnot
code_01b1:	ret

Button::init:
		link	$22
		lap	param[$0]
		bnt	code_01bc
		lap	param[$1]
		jmp	code_01d4

code_01bc:	pToa	client
		not
		bnt	code_01d2
		lag	global[$3]
		bnt	code_01ce
		pushi	$1d0		; 464, pScreen
		push0
		send	$4
		bnot
		jmp	code_01d4

code_01ce:	ldi	$0
		jmp	code_01d4

code_01d2:	pToa	client
code_01d4:	aTop	client
		pTos	font
		ldi	$0
		eq?
		bnt	code_01e1
		lag	global[$3b]
		aTop	font
code_01e1:	pTos	selectColor
		ldi	$ff		; 255, asInteger
		eq?
		bnt	code_01ec
		lag	global[$61]
		aTop	selectColor
code_01ec:	pTos	chosenColor
		ldi	$ff		; 255, asInteger
		eq?
		bnt	code_01f7
		lag	global[$61]
		aTop	chosenColor
code_01f7:	pTos	normalColor
		ldi	$ff		; 255, asInteger
		eq?
		bnt	code_0202
		pToa	skip
		aTop	normalColor
code_0202:	pTos	back
		ldi	$ff		; 255, asInteger
		eq?
		bnt	code_020d
		pToa	normalColor
		aTop	back
code_020d:	pTos	fore
		ldi	$ff		; 255, asInteger
		eq?
		bnt	code_0218
		lag	global[$54]
		aTop	fore
code_0218:	pTos	hiColor
		ldi	$ff		; 255, asInteger
		eq?
		bnt	code_0223
		lag	global[$61]
		aTop	hiColor
code_0223:	pTos	dimColor
		ldi	$ff		; 255, asInteger
		eq?
		bnt	code_022e
		lag	global[$5d]
		aTop	dimColor
code_022e:	pToa	wide
		bnt	code_0239
		pushi	$4e		; 78, 'N', width
		push1
		push
		self	$6
		bnot
code_0239:	ldi	$ff		; 255, asInteger
		aTop	lastState
		pTos	signal
		ldi	$f7		; 247, cat
		and
		aTop	signal
		pushi	$94		; 148, init
		push1
		pTos	client
		&rest	$2
		super	TextItem, $6
		bnot
		lag	global[$3]
		bnt	code_0264
		pTos	client
		pushi	$1d0		; 464, pScreen
		push0
		send	$4
		bnot
		eq?
		bnt	code_0264
		ldi	$ff		; 255, asInteger
		aTop	lastState
code_0264:	ret

Button::dispose:
		pToa	iconView
		bnt	code_0274
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	iconView
code_0274:	pToa	textRect
		bnt	code_0283
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	textRect
code_0283:	pushi	$95		; 149, dispose
		push0
		super	TextItem, $4
		bnot
		ret

Button::draw:
		link	$2
		pushi	$1f3		; 499, refresh
		push0
		self	$4
		bnot
		pToa	drawCode
		bnt	code_02a3
		pushi	$45		; 69, 'E', doit
		push1
		pushSelf
		send	$6
		bnot
		bnt	code_02a3
		ret

code_02a3:	lap	param[$0]
		bnt	code_02a9
		lap	param[$1]
code_02a9:	bt	code_02b0
		pTos	lastState
		pToa	state
		ne?
code_02b0:	bnt	code_0371
		pushi	$17c		; 380, isNotHidden
		push0
		self	$4
		bnot
		bnt	code_0371
		pToa	plane
		bnt	code_0371
		pToa	bitmap
		bnt	code_02d7
		push1
		pushSelf
		callk	kernel_31, $2
		bnot
		pushi	$9f		; 159, add
		push1
		pTos	bitmap
		lag	global[$66]
		send	$6
		bnot
code_02d7:	pTos	view
		ldi	$ff		; 255, asInteger
		ne?
		bnt	code_031a
		pushi	$7		; priority
		pushi	$9		; inLeft
		pTos	view
		pTos	loop
		pTos	cel
		pushi	$ff		; 255, asInteger
		dup
		push1
		callk	kernel_35, $e
		bnot
		aTop	bitmap
		pushi	$4		; scaleX
		pushi	$8		; fixPriority
		pTos	bitmap
		pushi	$4		; scaleX
		push0
		pTos	view
		pTos	loop
		pTos	cel
		callk	kernel_34, $8
		bnot
		push
		pushi	$4		; scaleX
		push1
		pTos	view
		pTos	loop
		pTos	cel
		callk	kernel_34, $8
		bnot
		push
		callk	kernel_35, $8
		bnot
		jmp	code_0358

code_031a:	pToa	plane
		bnt	code_0320
		jmp	code_0327

code_0320:	push0
		push0
		lag	global[$3]
		send	$4
		bnot
code_0327:	sat	temp[$1]
		pushi	$8		; fixPriority
		push0
		pushi	$4e		; 78, 'N', width
		push0
		self	$4
		bnot
		push
		pushi	$e1		; 225, height
		push0
		self	$4
		bnot
		push
		pTos	skip
		pTos	back
		pushi	$6e		; 110, 'n', resX
		push0
		lat	temp[$1]
		send	$4
		bnot
		push
		pushi	$6f		; 111, 'o', resY
		push0
		lat	temp[$1]
		send	$4
		bnot
		push
		push0
		callk	kernel_35, $10
		bnot
		aTop	bitmap
code_0358:	pushi	$f0		; 240, drawSelected
		push0
		pushi	$1f1		; 497, drawText
		push0
		pushi	$1f2		; 498, drawIcon
		push0
		self	$c
		bnot
		push1
		pushSelf
		callk	kernel_30, $2
		bnot
		pToa	state
		aTop	lastState
code_0371:	ret

Button::drawText:
		link	$2
		pToa	text
		bnt	code_04cc
		pushi	$8d		; 141, new
		push0
		class	Rect
		send	$4
		bnot
		sat	temp[$0]
		pToa	textRect
		bnt	code_0395
		pushi	$d3		; 211, copy
		push1
		push
		lat	temp[$0]
		send	$6
		bnot
		jmp	code_044c

code_0395:	pushi	$d3		; 211, copy
		push1
		pushSelf
		lat	temp[$0]
		send	$6
		bnot
		pToa	borderSize
		bnt	code_03ae
		pushi	$db		; 219, moveTo
		push2
		push
		push
		lat	temp[$0]
		send	$8
		bnot
code_03ae:	pushi	$8d		; 141, new
		push0
		class	Rect
		send	$4
		bnot
		sat	temp[$1]
		pushi	$e5		; 229, sizeToStr
		pushi	$3		; z
		pTos	text
		pTos	font
		pushi	$ff		; 255, asInteger
		send	$a
		bnot
		pushi	$db		; 219, moveTo
		push2
		pushi	$87		; 135, left
		push0
		lat	temp[$0]
		send	$4
		bnot
		push
		push2
		push2
		pTos	borderSize
		ldi	$1
		sub
		push
		pushi	$e1		; 225, height
		push0
		lat	temp[$0]
		send	$4
		bnot
		push
		pushi	$e1		; 225, height
		push0
		lat	temp[$1]
		send	$4
		bnot
		sub
		push
		calle	export60025_2, $4
		bnot
		push
		pTos	borderSize
		ldi	$1
		sub
		push
		pushi	$e1		; 225, height
		push0
		lat	temp[$0]
		send	$4
		bnot
		push
		pushi	$e1		; 225, height
		push0
		lat	temp[$1]
		send	$4
		bnot
		sub
		push
		ldi	$2
		div
		add
		push
		calle	export60025_3, $4
		bnot
		push
		lat	temp[$0]
		send	$8
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$1]
		send	$4
		bnot
		pTos	state
		ldi	$20		; 32, ' ', name
		and
		bt	code_043d
		pTos	state
		ldi	$4		; scaleX
		and
code_043d:	bnt	code_044c
		pushi	$dd		; 221, moveBy
		push2
		pTos	textOffsetX
		pTos	textOffsetY
		lat	temp[$0]
		send	$8
		bnot
code_044c:	pushi	$e		; 14, view
		pushi	$4		; scaleX
		pTos	bitmap
		push2
		pushi	$9		; inLeft
		pTos	text
		callk	kernel_91, $4
		bnot
		push
		pushi	$87		; 135, left
		push0
		lat	temp[$0]
		send	$4
		bnot
		push
		pushi	$89		; 137, top
		push0
		lat	temp[$0]
		send	$4
		bnot
		push
		pushi	$88		; 136, right
		push0
		lat	temp[$0]
		send	$4
		bnot
		push
		pushi	$8a		; 138, bottom
		push0
		lat	temp[$0]
		send	$4
		bnot
		push
		pTos	back
		pToa	skip
		eq?
		bnt	code_04b1
		pTos	state
		ldi	$1
		and
		not
		bnt	code_0497
		pToa	dimColor
		jmp	code_04b3

code_0497:	pTos	state
		ldi	$20		; 32, ' ', name
		and
		bnt	code_04a2
		pToa	selectColor
		jmp	code_04b3

code_04a2:	pTos	state
		ldi	$4		; scaleX
		and
		bnt	code_04ad
		pToa	chosenColor
		jmp	code_04b3

code_04ad:	pToa	fore
		jmp	code_04b3

code_04b1:	pToa	fore
code_04b3:	push
		pTos	skip
		pTos	skip
		pTos	font
		pTos	mode
		pushi	$ff		; 255, asInteger
		push0
		callk	kernel_35, $1c
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$0]
		send	$4
		bnot
code_04cc:	ret

Button::drawIcon:
		link	$2
		pToa	iconView
		bnt	code_0512
		pTos	left
		push1
		push0
		send	$4
		bnot
		add
		sat	temp[$0]
		pTos	top
		push2
		push0
		pToa	iconView
		send	$4
		bnot
		add
		sat	temp[$1]
		pushi	$7		; priority
		pushi	$3		; z
		pTos	bitmap
		pushi	$e		; 14, view
		push0
		pToa	iconView
		send	$4
		bnot
		push
		pushi	$f		; 15, loop
		push0
		pToa	iconView
		send	$4
		bnot
		push
		pushi	$10		; 16, cel
		push0
		pToa	iconView
		send	$4
		bnot
		push
		lst	temp[$0]
		lst	temp[$1]
		callk	kernel_35, $e
		bnot
code_0512:	ret

Button::drawSelected:
		link	$2
		pTos	state
		ldi	$8		; fixPriority
		and
		not
		bt	code_0523
		lap	param[$0]
		bnt	code_052a
		lap	param[$1]
code_0523:	bnt	code_052a
		ldi	$0
		jmp	code_05b7

code_052a:	pTos	view
		ldi	$ff		; 255, asInteger
		ne?
		bnt	code_0552
		push1
		pushSelf
		callk	kernel_22, $2
		bnot
		push
		ldi	$3		; z
		gt?
		bnt	code_0552
		pushi	$7		; priority
		pushi	$3		; z
		pTos	bitmap
		pTos	view
		pTos	loop
		pushi	$3		; z
		push0
		push0
		callk	kernel_35, $e
		bnot
		jmp	code_05b7

code_0552:	pTos	back
		pToa	skip
		ne?
		bnt	code_05b7
		pushi	$4e		; 78, 'N', width
		push0
		self	$4
		bnot
		push
		ldi	$1
		sub
		sat	temp[$0]
		pushi	$e1		; 225, height
		push0
		self	$4
		bnot
		push
		ldi	$1
		sub
		sat	temp[$1]
		pushi	$7		; priority
		push2
		pTos	bitmap
		push0
		push0
		lst	temp[$0]
		push0
		pTos	selectColor
		callk	kernel_35, $e
		bnot
		pushi	$7		; priority
		push2
		pTos	bitmap
		lst	temp[$0]
		push0
		lst	temp[$0]
		lst	temp[$1]
		pTos	selectColor
		callk	kernel_35, $e
		bnot
		pushi	$7		; priority
		push2
		pTos	bitmap
		push0
		push0
		push0
		lst	temp[$1]
		pTos	selectColor
		callk	kernel_35, $e
		bnot
		pushi	$7		; priority
		push2
		pTos	bitmap
		push0
		lst	temp[$1]
		lst	temp[$0]
		lst	temp[$1]
		pTos	selectColor
		callk	kernel_35, $e
		bnot
code_05b7:	ret

Button::refresh:
		pTos	back
		pToa	skip
		ne?
		bnt	code_05f0
		pTos	view
		ldi	$ff		; 255, asInteger
		ne?
		bnt	code_05ca
		pToa	skip
		jmp	code_05ee

code_05ca:	pTos	state
		ldi	$1
		and
		not
		bnt	code_05d6
		pToa	dimColor
		jmp	code_05ee

code_05d6:	pTos	state
		ldi	$4		; scaleX
		and
		bnt	code_05e1
		pToa	chosenColor
		jmp	code_05ee

code_05e1:	pTos	state
		ldi	$20		; 32, ' ', name
		and
		bnt	code_05ec
		pToa	selectColor
		jmp	code_05ee

code_05ec:	pToa	normalColor
code_05ee:	aTop	back
code_05f0:	pTos	view
		ldi	$ff		; 255, asInteger
		ne?
		bnt	code_0640
		pTos	state
		ldi	$1
		and
		not
		bnt	code_0604
		ldi	$2
		jmp	code_061c

code_0604:	pTos	state
		ldi	$4		; scaleX
		and
		bnt	code_060f
		ldi	$4		; scaleX
		jmp	code_061c

code_060f:	pTos	state
		ldi	$20		; 32, ' ', name
		and
		bnt	code_061a
		ldi	$1
		jmp	code_061c

code_061a:	ldi	$0
code_061c:	aTop	cel
		push1
		pushSelf
		callk	kernel_22, $2
		bnot
		push
		pToa	cel
		le?
		bt	code_063a
		pushi	$3		; z
		pTos	view
		pTos	loop
		pTos	cel
		callk	kernel_28, $6
		bnot
		push
		ldi	$1
		le?
code_063a:	bnt	code_0640
		ldi	$0
		aTop	cel
code_0640:	ret

Button::select:
		lap	param[$0]
		bnt	code_065b
		lap	param[$1]
		bnt	code_0652
		pTos	state
		ldi	$8		; fixPriority
		or
		aTop	state
		jmp	code_0662

code_0652:	pTos	state
		ldi	$f7		; 247, cat
		and
		aTop	state
		jmp	code_0662

code_065b:	pTos	state
		ldi	$8		; fixPriority
		xor
		aTop	state
code_0662:	lsp	param[$0]
		ldi	$2
		lt?
		bt	code_066b
		lap	param[$2]
code_066b:	bnt	code_0673
		pushi	$57		; 87, 'W', draw
		push0
		self	$4
		bnot
code_0673:	ret

Button::choose:
		link	$2
		pTos	btnType
		ldi	$1
		eq?
		bnt	code_0687
		pTos	state
		ldi	$4		; scaleX
		xor
		aTop	state
		jmp	code_072c

code_0687:	pTos	btnType
		ldi	$0
		eq?
		bnt	code_0691
		jmp	code_072c

code_0691:	pTos	btnType
		ldi	$2
		eq?
		bnt	code_0703
		pTos	state
		ldi	$4		; scaleX
		or
		aTop	state
		pToa	buttonSet
		bnt	code_072c
		ldi	$0
		sat	temp[$0]
code_06a9:	lst	temp[$0]
		pushi	$5a		; 90, 'Z', size
		push0
		pToa	buttonSet
		send	$4
		bnot
		lt?
		bnt	code_072c
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$0]
		pToa	buttonSet
		send	$6
		bnot
		sat	temp[$1]
		push
		selfID
		ne?
		bnt	code_06fc
		pushi	$1cc		; 460, checkState
		push1
		pushi	$4		; scaleX
		lat	temp[$1]
		send	$6
		bnot
		bnt	code_06fc
		pushi	$29		; 41, ')', state
		push1
		pushi	$29		; 41, ')', state
		push0
		lat	temp[$1]
		send	$4
		bnot
		push
		ldi	$fb		; 251, subStr
		and
		push
		pushi	$1ee		; 494, lastState
		push1
		pushi	$ff		; 255, asInteger
		lat	temp[$1]
		send	$c
		bnot
		pushi	$57		; 87, 'W', draw
		push0
		lat	temp[$1]
		send	$4
		bnot
		jmp	code_072c

code_06fc:	+at	temp[$0]
		jmp	code_06a9

		jmp	code_072c

code_0703:	pTos	btnType
		ldi	$3		; z
		eq?
		bnt	code_072c
		pToa	buttonSet
		bnt	code_072c
		ipToa	buttonPtr
		push
		pushi	$5a		; 90, 'Z', size
		push0
		pToa	buttonSet
		send	$4
		bnot
		ge?
		bnt	code_0720
		ldi	$0
		aTop	buttonPtr
code_0720:	pushi	$4b		; 75, 'K', at
		push1
		pTos	buttonPtr
		pToa	buttonSet
		send	$6
		bnot
		aTop	text
code_072c:	pushi	$57		; 87, 'W', draw
		push0
		self	$4
		bnot
		ret

Button::highlight:
		lap	param[$1]
		bnt	code_0740
		pTos	state
		ldi	$20		; 32, ' ', name
		or
		aTop	state
		jmp	code_0747

code_0740:	pTos	state
		ldi	$df		; 223, centerOn
		and
		aTop	state
code_0747:	lsp	param[$0]
		ldi	$2
		lt?
		bt	code_0750
		lap	param[$2]
code_0750:	bnt	code_0758
		pushi	$57		; 87, 'W', draw
		push0
		self	$4
		bnot
code_0758:	ret

Button::setSize:
		link	$8
		pushi	$1be		; 446, setSize
		push0
		super	TextItem, $4
		bnot
		pToa	left
		sat	temp[$1]
		pToa	top
		sat	temp[$2]
		pushi	$8d		; 141, new
		push0
		class	Rect
		send	$4
		bnot
		sat	temp[$3]
		pToa	text
		bnt	code_079b
		pushi	$e5		; 229, sizeToStr
		pushi	$3		; z
		push2
		pushi	$9		; inLeft
		push
		callk	kernel_91, $4
		bnot
		push
		pTos	font
		lap	param[$0]
		bnt	code_0793
		lap	param[$1]
		jmp	code_0795

code_0793:	ldi	$0
code_0795:	push
		lat	temp[$3]
		send	$a
		bnot
code_079b:	pTos	view
		ldi	$ff		; 255, asInteger
		ne?
		bnt	code_07d1
		pushi	$8d		; 141, new
		push0
		class	Rect
		send	$4
		bnot
		sat	temp[$4]
		pushi	$e6		; 230, sizeToCel
		pushi	$3		; z
		pTos	view
		pTos	loop
		pTos	cel
		send	$a
		bnot
		pushi	$af		; 175, union
		push1
		lst	temp[$4]
		lat	temp[$3]
		send	$6
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$4]
		send	$4
		bnot
code_07d1:	pushi	$d3		; 211, copy
		push1
		lst	temp[$3]
		self	$6
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$3]
		send	$4
		bnot
		pToa	text
		bnt	code_0806
		pToa	borderSize
		bnt	code_0806
		pushi	$e3		; 227, expand
		push2
		pTos	borderSize
		pTos	borderSize
		self	$8
		bnot
		pTos	right
		ldi	$2
		add
		aTop	right
		pushi	$db		; 219, moveTo
		push2
		push0
		push0
		self	$8
		bnot
code_0806:	pushi	$db		; 219, moveTo
		push2
		lst	temp[$1]
		lst	temp[$2]
		self	$8
		bnot
		pTos	btnType
		ldi	$3		; z
		eq?
		bnt	code_0874
		pToa	buttonSet
		bnt	code_0874
		ldi	$0
		sat	temp[$6]
		sat	temp[$5]
		ldi	$0
		sat	temp[$0]
code_0828:	lst	temp[$0]
		pushi	$5a		; 90, 'Z', size
		push0
		pToa	buttonSet
		send	$4
		bnot
		lt?
		bnt	code_0863
		push2
		push1
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$0]
		pToa	buttonSet
		send	$6
		bnot
		push
		callk	kernel_92, $4
		bnot
		sat	temp[$7]
		push
		lat	temp[$6]
		gt?
		bnt	code_085f
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$0]
		pToa	buttonSet
		send	$6
		bnot
		sat	temp[$5]
		lat	temp[$7]
		sat	temp[$6]
code_085f:	+at	temp[$0]
		jmp	code_0828

code_0863:	lat	temp[$5]
		bnt	code_0874
		pushi	$e5		; 229, sizeToStr
		pushi	$3		; z
		push
		pTos	font
		push0
		self	$a
		bnot
code_0874:	pToa	checkMark
		bnt	code_0881
		pushi	$e0		; 224, widen
		push1
		pushi	$10		; 16, cel
		self	$6
		bnot
code_0881:	pToa	wide
		bnt	code_088c
		pushi	$4e		; 78, 'N', width
		push1
		push
		self	$6
		bnot
code_088c:	ret

Button::setView:
		lap	param[$1]
		aTop	view
		lap	param[$2]
		aTop	loop
		lap	param[$3]
		aTop	cel
		ret

Button::setIcon:
		pToa	iconView
		not
		bnt	code_08aa
		pushi	$8d		; 141, new
		push0
		class	View
		send	$4
		bnot
		aTop	iconView
code_08aa:	pushi	$e		; 14, view
		push1
		lsp	param[$1]
		pushi	$f		; 15, loop
		push1
		lsp	param[$2]
		pushi	$10		; 16, cel
		push1
		lsp	param[$3]
		push1
		push1
		lsp	param[$0]
		ldi	$3		; z
		gt?
		bnt	code_08c6
		lap	param[$4]
		jmp	code_08c8

code_08c6:	ldi	$0
code_08c8:	push
		push2
		push1
		lsp	param[$0]
		ldi	$4		; scaleX
		gt?
		bnt	code_08d6
		lap	param[$5]
		jmp	code_08d8

code_08d6:	ldi	$0
code_08d8:	push
		pToa	iconView
		send	$1e
		bnot
		ret

Button::setText:
		lap	param[$1]
		aTop	text
		lsp	param[$0]
		ldi	$1
		gt?
		bnt	code_0956
		pToa	textRect
		not
		bnt	code_08fb
		pushi	$8d		; 141, new
		push0
		class	Rect
		send	$4
		bnot
		aTop	textRect
code_08fb:	pushi	$87		; 135, left
		push1
		lsp	param[$2]
		pushi	$89		; 137, top
		push1
		lsp	param[$3]
		pToa	textRect
		send	$c
		bnot
		lsp	param[$0]
		ldi	$3		; z
		gt?
		bnt	code_0927
		pushi	$88		; 136, right
		push1
		lsp	param[$4]
		pushi	$8a		; 138, bottom
		push1
		lsp	param[$5]
		pToa	textRect
		send	$c
		bnot
		jmp	code_0956

code_0927:	pushi	$e5		; 229, sizeToStr
		pushi	$3		; z
		pTos	text
		pTos	font
		pushi	$4e		; 78, 'N', width
		push0
		self	$4
		bnot
		bnt	code_0941
		pushi	$4e		; 78, 'N', width
		push0
		self	$4
		bnot
		jmp	code_0943

code_0941:	ldi	$ff		; 255, asInteger
code_0943:	push
		pToa	textRect
		send	$a
		bnot
		pushi	$db		; 219, moveTo
		push2
		lsp	param[$2]
		lsp	param[$3]
		pToa	textRect
		send	$8
		bnot
code_0956:	ret

Button::makeActionBtn:
		ldi	$0
		aTop	btnType
		ret

Button::makeCheckBtn:
		ldi	$1
		aTop	btnType
		lap	param[$0]
		bnt	code_0972
		lap	param[$1]
		aTop	buttonSet
		pushi	$9f		; 159, add
		push1
		pushSelf
		pToa	buttonSet
		send	$6
		bnot
code_0972:	pTos	state
		ldi	$fd		; 253, strip
		and
		aTop	state
		ret

Button::makeRadioBtn:
		ldi	$2
		aTop	btnType
		lap	param[$1]
		aTop	buttonSet
		pushi	$9f		; 159, add
		push1
		pushSelf
		pToa	buttonSet
		send	$6
		bnot
		pTos	state
		ldi	$fd		; 253, strip
		and
		aTop	state
		ret

Button::makeListBtn:
		ldi	$3		; z
		aTop	btnType
		lap	param[$1]
		aTop	buttonSet
		lsp	param[$0]
		ldi	$1
		gt?
		bnt	code_09a7
		lap	param[$2]
		jmp	code_09a9

code_09a7:	ldi	$0
code_09a9:	aTop	buttonPtr
		pushi	$4b		; 75, 'K', at
		push1
		pTos	buttonPtr
		pToa	buttonSet
		send	$6
		bnot
		aTop	text
		pTos	state
		ldi	$fd		; 253, strip
		and
		aTop	state
		pTos	state
		ldi	$80		; 128, lastKey
		or
		aTop	state
		ret

