'From etoys4.0 of 9 October 2008 [latest update: #2331] on 6 October 2009 at 1:18:32 pm'!
"Change Set:		trnSlotType-KR
Date:			6 October 2009
Author:			Korakurider

SQ-483:  name of slot type not extracted to POT ans can't be translated"!


!EToyVocabulary class methodsFor: 'as yet unclassified' stamp: 'KR 10/6/2009 13:11'!
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}]]]].

		literals :=( self allStandardVocabularies
			select: 
				[:aVocab | aVocab representsAType]
			thenCollect: 
				[:aVocab | aVocab vocabularyName asString ]).
		results add: {Vocabulary class category. Vocabulary class. #typeChoices. literals}.
	^results.! !