'From etoys2.2 of 22 September 2007 [latest update: #1731] on 29 October 2007 at 11:56:16 pm'! "Change Set: TransCategory-KR Date: 28 October 2007 Author: Korakurider To make sure all of viewer category symbols are exported to POs/POT and translated"! !EToyVocabulary class methodsFor: 'as yet unclassified' stamp: 'KR 10/29/2007 23:54'! 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. #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. aSelector. literals}]]]]. ^results.! !