The Trunk: FlexibleVocabularies-nice.8.mcz

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

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

Name: FlexibleVocabularies-nice.8
Author: nice
Time: 21 October 2009, 12:23:42 pm
UUID: 61602f5c-768f-48f1-93df-8fd78c437f76
Ancestors: FlexibleVocabularies-nice.7

Use #keys rather than #fasterKeys
Note that pattern (x keys asArray sort) could as well be written (x keys sort) now that keys returns an Array...
This #asArray is here solely for cross-dialect/fork compatibility.

=============== Diff against FlexibleVocabularies-nice.7 ===============

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 keys
- additions addAll: (aClass allAdditionsToViewerCategories fasterKeys
  sort: [ :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 := Dictionary new.
  self unfilteredCategoriesForViewer
  withIndexDo: [:cat :index | dict at: cat put: index].
  self filterViewerCategoryDictionary: dict.
+ ^ dict keys asArray sort: [:a :b | (dict at: a)
- ^ dict fasterKeys sort: [:a :b | (dict at: a)
  < (dict at: b)]!