[etoys-dev] Etoys Inbox: Etoys-bf.48.mcz

[commits at source.squeak.org]

Bert Freudenberg uploaded a new version of Etoys to project Etoys Inbox:
http://source.squeak.org/etoysinbox/Etoys-bf.48.mcz

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

Name: Etoys-bf.48
Author: bf
Time: 24 September 2010, 6:49:08 pm
UUID: 460b7d6a-7178-4ce1-8681-bb1e7a53fdf5
Ancestors: Etoys-bf.47

Fix clean up viewer category translations

=============== Diff against Etoys-bf.47 ===============

Item was changed:
  ----- Method: EToyVocabulary classSide>>allPhrasesWithContextToTranslate (in category 'as yet unclassified') -----
  allPhrasesWithContextToTranslate
  	| etoyVocab results literals additions |
  
  	results := OrderedCollection new.
  	etoyVocab := Vocabulary eToyVocabulary.
  	etoyVocab initialize.		"just to make sure that it's unfiltered."
  	self morphClassesDeclaringViewerAdditions do: [:cl |
  		(cl class includesSelector: #additionsToViewerCategories)
  			ifTrue: [
  				literals := OrderedCollection new.
  				cl additionsToViewerCategories do: [:group | 
  					literals add: group first.
  					group second do: [:tuple |
  						literals add: (ScriptingSystem wordingForOperator: (tuple at: 2)).  "wording"
  						literals add: (tuple at: 3).  "help string"]].
  				literals ifNotEmpty: [
  					results add: {cl category. cl class. #additionsToViewerCategories. literals}]].
  
  		cl class selectors do: [:aSelector | ((aSelector beginsWith: 'additionsToViewerCategory')
  								and: [(aSelector at: 26 ifAbsent: []) ~= $:])
  			ifTrue: [
  				literals := OrderedCollection new.
  				additions := (cl perform: aSelector).
  				literals add: additions first.
  				additions second do: [:tuple |
  					literals add: (ScriptingSystem wordingForOperator: (tuple at: 2)).  "wording"
  					literals add: (tuple at: 3).  "help string"].
  				literals ifNotEmpty: [
  					results add: {cl category. cl class. aSelector. literals}]]]].
  
  		literals :=( self allStandardVocabularies
  			select: 
  				[:aVocab | aVocab representsAType]
  			thenCollect: 
  				[:aVocab | aVocab vocabularyName asString ]).
  		results add: {Vocabulary class category. Vocabulary class. #typeChoices. literals}.
  
+ 		results add: {ScriptingSystem class category. ScriptingSystem class. #nameForInstanceVariablesCategory. {ScriptingSystem nameForInstanceVariablesCategory}}.
- 		results add: {ScriptingSystem class category. ScriptingSystem class. #nameForInstanceVariablesCategory. ScriptingSystem nameForInstanceVariablesCategory}.
  	^results.!