The Trunk: Morphic-nice.213.mcz

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

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

Name: Morphic-nice.213
Author: nice
Time: 20 October 2009, 9:37:51 am
UUID: 22deb5d0-d5e0-4787-94e3-2508c27a0d34
Ancestors: Morphic-nice.212

Track selectors usage, use #includesSelector: where due

=============== Diff against Morphic-nice.212 ===============

Item was changed:
  ----- Method: StandardScriptingSystem>>initializeHelpStrings (in category 'help dictionary') -----
  initializeHelpStrings
  "Initialize the data structure that determines, for the etoy system, help messages for various scripting elements.  The structure is built up by letting every Morph subclass contribute elements simply by implementing method #helpContributions.  Consult implementors of #helpContributions for examples of how this goes."
 
  "ScriptingSystem initializeHelpStrings"
 
  | aDictionary |
  aDictionary := IdentityDictionary new.  
  "For safety, the new copy is built up in this temp first, so that if an error occurs during the creation of the structure, the old version will remain remain in place"
 
  Morph withAllSubclasses do:
+ [:aClass | (aClass class includesSelector: #helpContributions)
- [:aClass | (aClass class selectors includes: #helpContributions)
  ifTrue:
  [aClass helpContributions do:
  [:pair | aDictionary at: pair first put: pair second]]].
 
  HelpStrings := aDictionary!