'From Squeakland 3.8.5976 of 25 August 2004 [latest update: #386] on 12 January 2005 at 6:27:57 pm'!

!TileMorph methodsFor: 'mouse handling' stamp: 'yo 1/12/2005 18:25'!
showOptions
	"The receiver is a tile that represents an operator; a click on the 
	receiver's label will pop up a menu of alternative operator choices"
	| result menuChoices |
	menuChoices _ self options first collect: [:each | each asString translated].
	result _ (SelectionMenu labelList: menuChoices lines: nil selections: self options first) startUp.
	result 
		ifNotNil: [self value: result.
			self scriptEdited]! !

SelectionMenu class removeSelector: #selectionsString:!
SelectionMenu class removeSelector: #selectionsString:lines:!