Nicolas Cellier uploaded a new version of FlexibleVocabularies to project The Trunk:
http://source.squeak.org/trunk/FlexibleVocabularies-nice.6.mcz

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

Name: FlexibleVocabularies-nice.6
Author: nice
Time: 19 October 2009, 11:27:09 am
UUID: 3db451ba-875e-f742-a59c-93e5dff787f1
Ancestors: FlexibleVocabularies-al.5

use #fasterKeys

=============== Diff against FlexibleVocabularies-al.5 ===============

Item was changed:
  ----- Method: Morph class>>unfilteredCategoriesForViewer (in category '*flexibleVocabularies-flexiblevocabularies-scripting') -----
  unfilteredCategoriesForViewer
  	"Answer a list of symbols representing the categories to offer in the viewer for one of my instances, in order of:
  	- masterOrderingOfCategorySymbols first
  	- others last in order by translated wording"
  	"
  	Morph unfilteredCategoriesForViewer
  	"
  
  	| aClass additions masterOrder |
  	aClass := self.
  	additions := OrderedCollection new.
  	[aClass == Morph superclass ] whileFalse: [
+ 		additions addAll: (aClass allAdditionsToViewerCategories fasterKeys
+ 			sort: [ :a :b | a translated < b translated ]).
- 		additions addAll: (aClass allAdditionsToViewerCategories keys
- 			asSortedCollection: [ :a :b | a translated < b translated ]).
  		aClass := aClass superclass ]. 
  
  	masterOrder := EToyVocabulary masterOrderingOfCategorySymbols.
  
  	^(masterOrder intersection: additions), (additions difference: masterOrder).!

Item was changed:
  ----- Method: Morph>>categoriesForViewer (in category '*flexiblevocabularies-scripting') -----
  categoriesForViewer
  	"Answer a list of symbols representing the categories to offer in the 
  	viewer, in order"
+ 	| dict |
- 	| dict aList |
  	dict := Dictionary new.
  	self unfilteredCategoriesForViewer
  		withIndexDo: [:cat :index | dict at: cat put: index].
  	self filterViewerCategoryDictionary: dict.
+ 	^ dict fasterKeys sort: [:a :b | (dict at: a)
+ 						< (dict at: b)]!
- 	aList := SortedCollection
- 				sortBlock: [:a :b | (dict at: a)
- 						< (dict at: b)].
- 	aList addAll: dict keys.
- 	^ aList asArray!