'From Squeakland 3.8.5976 of 25 August 2004 [latest update: #390] on 3 March 2005 at 1:33:58 pm'!
"Change Set:		increasedByFix
Date:			3 March 2005
Author:			Takashi Yammaiya

smartTileMorph.cs (http://bugs.impara.de/view.php?id=603) occurs unexpected
problem when showing a menu clicking on 'increse by' tile.
The change set fixes it."!


!TileMorph methodsFor: 'mouse handling' stamp: 'tak 3/3/2005 13:17'!
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"
	| options menu choice word |
	options := self options first.
	menu := PopUpMenu
				labelArray: (options
						collect: [:each | 
							word := self currentVocabulary translatedWordingFor: each.
							word isEmpty
								ifTrue: ['<-']
								ifFalse: [word]]).
	choice := menu startUp.
	choice > 0
		ifTrue: [self
				value: (options at: choice).
			self scriptEdited]! !