'From etoys2.3 of 28 November 2007 [Letztes Update: #1835] on 12 December 2007 at 8:47:22 pm'!
"Change Set:		OpTranslation-yo
Date:			12 December 2007
Author:			Yoshiki Ohshima

Fix a bug when translating the operators.  Now it should be possible to translate * to :, for example."!


!TileMorph methodsFor: 'mouse handling' stamp: 'yo 12/12/2007 20:44'!
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 word |
	menuChoices _ (self options first collect: [:each | each asString]) collect: [:each | 
							word := self currentVocabulary translatedWordingFor: each asSymbol.
							word isEmpty
								ifTrue: ['<-']
								ifFalse: [word]].
	result _ (SelectionMenu labelList: menuChoices lines: nil selections: self options first) startUp.
	result 
		ifNotNil: [self value: result.
			self scriptEdited]! !