[etoys-dev] Etoys: Etoys-kfr.90.mcz

[commits at source.squeak.org]

Karl Ramberg uploaded a new version of Etoys to project Etoys:
http://source.squeak.org/etoys/Etoys-kfr.90.mcz

==================== Summary ====================

Name: Etoys-kfr.90
Author: kfr
Time: 28 August 2011, 7:22:04 pm
UUID: f57d55a7-6c2b-ef4a-a409-4d9935929ae5
Ancestors: Etoys-kfr.89

http://tracker.squeakland.org/browse/SQ-980

=============== Diff against Etoys-kfr.89 ===============

Item was changed:
  ----- Method: StandardScriptingSystem>>wordingForOperator: (in category '*Etoys-utilities') -----
+ wordingForOperator: aSelector 
- wordingForOperator: aSelector
- 	"Answer the wording to be seen by the user for the given operator symbol/string"
- 
  	| wording |
  	wording := aSelector asString.
+ 	#(#(#append: 'include at end') #(#beep: 'make sound') #(#clearTurtleTrails 'clear pen trails') #(#clearOwnersPenTrails 'clear all pen trails') #(#colorSees 'color sees') #(#distanceToPlayer 'distance to') #(#doScript: 'do') #(#forward: 'forward by') #(#goToRightOf: 'align after') #(#makeNewDrawingIn: 'start painting in') #(#noArrowheadsOnAllPens 'no arrowheads on pens') #(#playButtonHit 'play') #(#prepend: 'include at beginning') #(#recordButtonHit 'start recording') #(#seesColor: 'is over color') #(#stopButtonHit 'stop') #(#stopProgramatically 'stop') #(#tellSelfAndAllSiblings: 'send to all') #(#turn: 'turn by') #(#wearCostumeOf: 'look like') #(#dial: 'dial to') #(#playSound: 'play frequency of') #(#soundListening 'listening') #(#appendVertex 'add a vertex at end') #(#insertVertexAtCursor 'insert a vertex at cursor') #(#prependVertex 'add a vertex at beginning') #(#removeAllButCursor 'remove all vertices but cursor') #(#removeVertexAtCursor 'remove the vertex at cursor') #(#lineCurved 'line is curved') #(#lineOpened 'line is opened') ) translatedNoop
+ 		do: [:pair | 
+ 			wording = pair first
+ 				ifTrue: [^ pair second].
+ 			nil].
- 
- 	#(	(append:					'include at end')
- 		(beep:						'make sound')
- 		(clearTurtleTrails			'clear pen trails')
- 		(clearOwnersPenTrails	'clear all pen trails')
- 		(colorSees					'color  sees')
- 		(distanceToPlayer		'distance to')
- 		(doScript:					'do')
- 		(forward:					'forward by')
- 		(goToRightOf:				'align after')
- 		(makeNewDrawingIn:	'start painting in')
- 		(noArrowheadsOnAllPens	'no arrowheads on pens')
- 		(playButtonHit			'play')
- 		(prepend:				'include at beginning')
- 		(recordButtonHit			'start recording')
- 		(seesColor:				'is over color')
- 		(stopButtonHit			'stop')
- 		(stopProgramatically	'stop')
- 		(tellSelfAndAllSiblings:	'send to all')
- 		(turn:					'turn by')
- 		(wearCostumeOf:		'look like')
- 
- 		(dial:					'dial to')
- 
- 		(playSound:				'play frequency of')
- 		(soundListening			'listening')
- 
- 		(appendVertex		'add a vertex at end')
- 		(insertVertexAtCursor		'insert a vertex at cursor')
- 		(prependVertex		'add a vertex at beginning')
- 		(removeAllButCursor			'remove all vertices but cursor')
- 		(removeVertexAtCursor		'remove the vertex at cursor')
- 		(lineCurved		'line is curved')
- 		(lineOpened		'line is opened')
- 		) translatedNoop
- 
- 	do:
- 		[:pair | wording = pair first ifTrue: [^ pair second]].
- 
  	wording := wording fromCamelCase.
+ 	^ (wording includes: $:)
- 	^(wording includes: $:)
  		ifTrue: [wording copyWithout: $:]
+ 		ifFalse: [wording]!
- 		ifFalse: [wording]
- 
- 	"StandardScriptingSystem initialize"
- 
- !