'From etoys2.2 of 27 September 2007 [latest update: #1787] on 20 November 2007 at 9:46:16 am'!
"Change Set:		arrowTile-bf
Date:			20 November 2007
Author:			Bert Freudenberg

Make large-arrow backgrounds use tile background color"!


!TileMorph methodsFor: 'arrows popup' stamp: 'bf 11/20/2007 17:24'!
buildHPopArrows
	| panel left right |
	self outmostScriptEditor
		ifNil: [^ nil].
	(retractArrow isNil
			and: [suffixArrow isNil])
		ifTrue: [^ nil].
	panel := Morph new.
	panel cornerStyle: #rounded.
	left := SketchMorph new
				form: (ScriptingSystem formAtKey: #LargeLeftArrow).
	right := SketchMorph new
				form: (ScriptingSystem formAtKey: #LargeRightArrow).
	panel
		color: color.
	panel sticky: true.
	panel layoutPolicy: TableLayout new.
	panel listDirection: #leftToRight.
	panel hResizing: #shrinkWrap.
	panel vResizing: #shrinkWrap.
	panel cellInset: 4.
	panel layoutInset: 2.
	retractArrow
		ifNotNil: [panel addMorphBack: left].
	suffixArrow
		ifNotNil: [panel addMorphBack: right].
	panel
		on: #mouseLeave
		send: #hidePopArrows
		to: self.
	left
		on: #mouseUp
		send: #popArrowRetractArrowHit:
		to: self.
	right
		on: #mouseUp
		send: #showSuffixChoices
		to: self.
	^ panel! !

!TileMorph methodsFor: 'arrows popup' stamp: 'bf 11/20/2007 17:24'!
buildVPopArrows
	| panel up down |
	panel := Morph new.
	panel cornerStyle: #rounded.
	up := SketchMorph new
				form: (ScriptingSystem formAtKey: #LargeUpArrow).
	down := SketchMorph new
				form: (ScriptingSystem formAtKey: #LargeDownArrow).
	panel
		color:  color.
	panel sticky: true.
	panel layoutPolicy: TableLayout new.
	panel listDirection: #topToBottom.
	panel hResizing: #shrinkWrap.
	panel vResizing: #shrinkWrap.
	panel cellInset: 4.
	panel layoutInset: 2.
	panel addMorphBack: up.
	panel addMorphBack: down.
	panel
		on: #mouseLeave
		send: #hidePopArrows
		to: self.
	up
		on: #mouseDown
		send: #popArrowUp:
		to: self.
	up
		on: #mouseMove
		send: #mouseMove:
		to: self.
	down
		on: #mouseDown
		send: #popArrowDown:
		to: self.
	down
		on: #mouseMove
		send: #mouseMove:
		to: self.
	^ panel! !