Etoys: Etoys-kfr.90.mcz

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"
-
- !

_______________________________________________
etoys-dev mailing list
[hidden email]
http://lists.squeakland.org/mailman/listinfo/etoys-dev