The Trunk: FlexibleVocabularies-nice.7.mcz

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

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

Name: FlexibleVocabularies-nice.7
Author: nice
Time: 20 October 2009, 9:32:37 am
UUID: 9be75f3b-aaff-45cf-bf25-820207690e50
Ancestors: FlexibleVocabularies-nice.6

Track selectors usage, use #selectorsDo:

=============== Diff against FlexibleVocabularies-nice.6 ===============

Item was changed:
  ----- Method: Morph class>>allAdditionsToViewerCategories (in category '*flexibleVocabularies-flexiblevocabularies-scripting') -----
  allAdditionsToViewerCategories
  "Answer a Dictionary of (<categoryName> <list of category specs>) that
  defines the phrases this kind of morph wishes to add to various Viewer categories.
 
  This version allows each category definition to be defined in one or more separate methods.
 
  Subclasses that have additions can either:
  - override #additionsToViewerCategories, or
  - (preferably) define one or more additionToViewerCategory* methods.
 
  The advantage of the latter technique is that class extensions may be added by
  external packages without having to re-define additionsToViewerCategories."
 
  "
  Morph allAdditionsToViewerCategories
  "
  | dict |
  dict := IdentityDictionary new.
  (self class includesSelector: #additionsToViewerCategories)
  ifTrue: [self additionsToViewerCategories
  do: [:group | group
  pairsDo: [:key :list | (dict
  at: key
  ifAbsentPut: [OrderedCollection new])
  addAll: list]]].
+ self class selectorsDo:
+ [:aSelector | ((aSelector beginsWith: 'additionsToViewerCategory')
- self class selectors
- do: [:aSelector | ((aSelector beginsWith: 'additionsToViewerCategory')
  and: [(aSelector at: 26 ifAbsent: []) ~= $:])
  ifTrue: [(self perform: aSelector)
  pairsDo: [:key :list | (dict
  at: key
  ifAbsentPut: [OrderedCollection new])
  addAll: list]]].
  ^ dict!