'From etoys2.2 of 27 September 2007 [latest update: #1785] on 18 November 2007 at 3:54:04 pm'!
"Change Set:		fixPopupArrowUpDown-tak
Date:			18 November 2007
Author:			Takashi Yamamiya

Mouse click event handler for vertical pop up carets did not make sense."!


!TileMorph methodsFor: 'arrows popup' stamp: 'tak 11/18/2007 15:48'!
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 white alpha: 0.7).
	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! !

!TileMorph methodsFor: 'arrows popup' stamp: 'tak 11/18/2007 15:48'!
popArrowDown: evt
	self setProperty: #previousLiteral toValue: self literalFromContents.
	self setProperty: #previousPoint toValue: evt position.
	self currentHand releaseKeyboardFocus.
	self arrowAction: self arrowDelta negated! !

!TileMorph methodsFor: 'arrows popup' stamp: 'tak 11/18/2007 15:48'!
popArrowUp: evt
	self setProperty: #previousLiteral toValue: self literalFromContents.
	self setProperty: #previousPoint toValue: evt position.
	self currentHand releaseKeyboardFocus.
	self arrowAction: self arrowDelta! !

TileMorph removeSelector: #popArrowClick:!
TileMorph removeSelector: #popArrowMouseDown:!