'From etoys3.0 of 28 February 2008 [latest update: #2018] on 19 June 2008 at 11:05:31 am'! "Change Set: menuTileFixes-sw Date: 19 June 2008 Author: Scott Wallace TRAC #6311: Bring up a viewer, select the misc category, hover above the right part of the 'do menu item' tile, click to get a menu, dismiss the menu by clicking outside the viewer, close the viewer by clicking on its tab. Result: the enlarged arrows stay up in the world (as well as the orange tile frame if it was active before). Both glitches reported in the TRAC ticket are fixed by this update."! !MenuTile methodsFor: 'event handling' stamp: 'sw 6/19/2008 11:02'! mouseDown: evt "The mouse went down on the menu tile -- put up a menu of possible menu items." | aPoint aMenu reply owningPhrase | aPoint _ evt cursorPoint. nArrowTicks _ 0. ((upArrow bounds containsPoint: aPoint) or: [downArrow bounds containsPoint: aPoint]) ifTrue: [^ self mouseStillDown: evt]. (owningPhrase := self ownerThatIsA: PhraseTileMorph) ifNil: [^ self]. "just bulletproofing..." (owningPhrase submorphs select: [:m | m isTileMorph]) do: [:m | m hidePopArrows]. owningPhrase removeHighlightFeedback. aMenu _ SelectionMenu selections: ((owningPhrase associatedPlayer costume allMenuWordings) copyWithout: ''). reply _ aMenu startUp. reply ifNotNil: [self literal: reply; layoutChanged]! !