TButton

• color:
• fadeDelay
• local:
• persist
• spin:
• switch

• disable
• doFade
• doSpin
• enable
• fadeDelta
• spinDelta
• target2:action2:
• target:action:

• handlesPointerDown:
• handlesPointerOver:
• persist:
• pointerDown:
• pointerEnter:
• pointerLeave:
• pointerMove:
• pointerOver:
• pointerUp:
• switch:

• initializeSwitchWithFrame:frame2:
• initializeWithFrame:
• initializeWithFrame:frame2:

• isComponent
• isSolid

• downColor
• hiliteColor
• normColor
• overColor

	color _ col.
	frame colorize: color.
	frame2 ifNotNil:[frame2 colorize: color.].

	^2500.0  "2.5 seconds"

	local _ bool.

	^ persist.

	spin _ bool.
	doSpin _ 0.

	^ switch.

	persist ifFalse:[
		animateTime ifNil: [
			animateTime := self fadeDelta asFloat / self fadeDelay.
			self future: self fadeDelta deferRelative: 0.0 perform: #doFade.
		].
	].

	"reduce color alpha"
	| pct |
	animateTime ifNil: [^self].
	pct := color at: 4.
	pct := pct - animateTime.
	pct >= 0.0 ifTrue: [
		color at: 4 put: pct.
		self color: color.
		self future: self fadeDelta deferRelative: 0.0 perform: #doFade.
	] ifFalse: [
		frame solidVisibleTree: false. 
		frame2 ifNotNil:[frame2 solidVisibleTree: false.].
	].
	Croquet commit.

	"spin the button"
	doSpin := doSpin + deltaSpin.
	doSpin <= -360 ifTrue: [doSpin := 0.].
	self rotationAroundY: doSpin.
	doSpin ~= 0 ifTrue: [ self future: self spinDelta deferRelative: 0.0 perform: #doSpin. ].
	Croquet commit.

	self color: TButton overColor.
	switch ifNil:[ frame solidVisibleTree: true. ] ifNotNil:[
		frame solidVisibleTree: switch not.
		frame2 solidVisibleTree: switch.
		].
	animateTime _ nil.

	^125.0 "1/8 second"

	^125.0 "1/8 second"

	target2 _ trgt.
	action2 _ act.

	target _ trgt.
	action _ act.

	^ true.

	^ true.

	persist _ bool.
	persist ifTrue:[ 	
		self color: TButton overColor.
		self enable.].
	persist ifFalse:[self disable.].

 

	self color: TButton downColor.
	frame2 ifNotNil:[
		switch ifNotNil:[
			frame solidVisibleTree: switch not.
			frame2 solidVisibleTree: switch.
			] ifNil:[
			frame solidVisibleTree: false.
			frame2 solidVisibleTree: true.
			].
		].
	^ true

	self enable.
	self color: TButton hiliteColor.
	spin ifTrue:[
		deltaSpin _ -1.
		doSpin = 0 ifTrue: [self future: self spinDelta deferRelative: 0.0 perform: #doSpin.].
		].
	^ true.

 

	self disable.
	persist ifTrue:[self color: TButton overColor.]
	ifFalse:[self color: TButton normColor.].
	spin ifTrue:[
		doSpin > -180 ifTrue:[
			deltaSpin _ deltaSpin negated.].
		].
	^ true

	pointer doSelect: true.
	(pointer pointerPickTree: self) ifTrue:[ 
		self color: TButton downColor.
		switch ifNotNil:[
			frame solidVisibleTree: switch.
			frame2 solidVisibleTree: switch not.
		] ifNil:[
			frame2 ifNotNil:[
				frame solidVisibleTree: false.
				frame2 solidVisibleTree: true. 
			].
		].
	] ifFalse:[ 
		self color: TButton hiliteColor. 
		switch ifNotNil:[
			frame solidVisibleTree: switch not.
			frame2 solidVisibleTree: switch.
		] ifNil:[
			frame2 ifNotNil:[
				frame solidVisibleTree: true.
				frame2 solidVisibleTree: false. 
			].
		].
	].
	pointer doSelect: false.
	^ true.

	^ true.

	| |
	pointer doSelect: true.
	pointer selectedDistance: Float infinity.
	(pointer pointerPickTree: self) ifTrue:[
		switch ifNotNil:[
			local ifFalse:[self switch: switch not.]
			ifTrue:[self switch: switch not.].
			switch ifTrue:[target ifNotNil:[ target perform: action with: pointer.].] 
			ifFalse:[
				target2 ifNotNil:[ target2 perform: action2 with: pointer.].].
		] 
		ifNil:[
			target ifNotNil:[ target perform: action with:pointer.].
			frame solidVisibleTree: true.
			frame2 ifNotNil:[ frame2 solidVisibleTree: false.].
			].
		] ifFalse:[
			switch ifNotNil:[
				frame solidVisibleTree: switch not.
				frame2 solidVisibleTree: switch.
			]ifNil:[
				frame solidVisibleTree: true.
				frame2 ifNotNil:[ frame2 solidVisibleTree: false.].
			].
		].
	pointer doSelect: false.
	persist ifTrue:[ self color: TButton overColor] ifFalse:[self color: TButton normColor].
	^ true.

	switch _ bool.
	(frame visibleTree or:[frame2 visibleTree])ifTrue:[
		frame solidVisibleTree: switch not.
		frame2 solidVisibleTree: switch.
	].

	super initialize.
	frame _ fr.
	frame2 _ fr2.
	frame objectOwner: self.
	frame2 objectOwner: self.
	self addChild: frame.
	self addChild: frame2.
	self color: TButton normColor.
	persist _ false.
	frame solidVisibleTree: false.
	frame2 solidVisibleTree: false.
	animateTime _ nil.
	switch _ false.
	enable _ false.
	spin _ false.
	local _ false.
	^self

	super initialize.
	frame _ fr.
	frame ifNotNil:[ frame objectOwner: self.].
	self addChild: frame.
	self color: TButton normColor.
	persist _ false.
	frame solidVisibleTree: false.
	animateTime _ nil.
	enable _ false.
	switch _ nil.
	spin _ false.
	local _ false.
	^self

	
	super initialize.
	frame _ fr.
	frame2 _ fr2.
	frame objectOwner: self.
	frame2 objectOwner: self.
	self addChild: frame.
	self addChild: frame2.
	self color: TButton normColor.
	persist _ false.
	frame solidVisibleTree: false.
	frame2 solidVisibleTree: false.
	animateTime _ nil.
	switch _ nil.
	enable _ false.
	spin _ false.
	local _ false.
	^self

	^ true.

	^ false.

	
	^ #(0.2 1.0 0.5 0.8) asFloatArray.

	
	^ #(1.0 1.0 0.2 0.5) asFloatArray.

	
	^ #(0.5 0.7 0.7 0.5) asFloatArray.

	
	^ #(0.2 0.5 1.0 0.8) asFloatArray.