'From etoys2.2 of 25 September 2007 [latest update: #1699] on 12 October 2007 at 8:17:52 pm'!
"Change Set:		gettextExpCtx-KR
Date:			12 October 2007
Author:			Korakurider

On extracting phrases from method that name is like additionsToViewerCategoryXXX,
method names are shown wrongly as #additionToViewerCategory in context comment of POs.
Now the correct context will been shown in POs by this patch."!


!EToyVocabulary class methodsFor: 'as yet unclassified' stamp: 'KR 10/12/2007 20:12'!
allPhrasesWithContextToTranslate
	| etoyVocab results literals |

	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 | 
					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.
				(cl perform: aSelector) 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.! !