[etoys-dev] Etoys Inbox: Etoys-Richo.9.mcz
commits at source.squeak.org
commits at source.squeak.org
Thu May 13 16:08:18 EDT 2010
A new version of Etoys was added to project Etoys Inbox:
http://source.squeak.org/etoysinbox/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.!
More information about the etoys-dev
mailing list