'From etoys2.2 of 22 September 2007 [latest update: #1731] on 30 October 2007 at 12:21:40 am'!
"Change Set:		SymListWOCamel-KR
Date:			30 October 2007
Author:			Korakurider

SymbolListTile show options and readout as no camel case. 
The no-camel words will be used for translation key.
"!


!UpdatingStringMorph methodsFor: 'target access' stamp: 'KR 10/29/2007 19:06'!
acceptValueFromTarget: v
	"Accept a value from the target"

	lastValue _ v.
	self format == #string ifTrue: [^ v asString].
	self format == #symbol ifTrue: [^ v asString fromCamelCase translated].
	(format == #default and: [v isNumber]) ifTrue:
		[^ self stringForNumericValue: v].
	^ v printString translated! !


!Vocabulary methodsFor: 'translation' stamp: 'KR 10/29/2007 19:01'!
translatedWordingFor: aSymbol
	"If I have a translated wording for aSymbol, return it, else return aSymbol.  Caveat: at present, this mechanism is only germane for *assignment-operator wordings*"

	#(: Incr: Decr: Mult:) with: #('' 'increase by' 'decrease by' 'multiply by') do:
		[:a :b | aSymbol = a ifTrue: [^ b translated]].

	^ aSymbol fromCamelCase translated! !