[etoys-dev] Etoys: Etoys-Richo.9.mcz

[commits at source.squeak.org]

A new version of Etoys was added to project Etoys:
http://source.squeak.org/etoys/Etoys-Richo.9.mcz

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

Name: Etoys-Richo.9
Author: Richo
Time: 13 May 2010, 5:07:44 pm
UUID: ec0b905a-3e4b-794a-b5aa-fec0439150b1
Ancestors: Etoys-kfr.8

* Modified EtoyVocabulary>>#allPhrasesWithContextToTranslate. It used to return Morph as the class containing #additionsToViewerCategoryXXX, I modified to return Morph class. I don't know if this is used in other places than GetTextExporter2 (I guess not).

=============== Diff against Etoys-kfr.8 ===============

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}]].
- 					results add: {cl category. cl. #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}]]]].
- 					results add: {cl category. cl. aSelector. literals}]]]].
  
  		literals :=( self allStandardVocabularies
  			select: 
  				[:aVocab | aVocab representsAType]
  			thenCollect: 
  				[:aVocab | aVocab vocabularyName asString ]).
  		results add: {Vocabulary class category. Vocabulary class. #typeChoices. literals}.
  	^results.!