[squeak-dev] The Trunk: System-cwp.152.mcz

Colin Putney uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-cwp.152.mcz

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

Name: System-cwp.152
Author: cwp
Time: 28 September 2009, 9:31:21 am
UUID: f3d14748-2ff3-408f-9ec5-6451f6b158f4
Ancestors: System-dtl.151

AppRegistry now allows classes to decide how they will be displayed in menus rather than always using the class name.

=============== Diff against System-dtl.151 ===============

Item was changed:
  SystemOrganization addCategory: #'System-Applications'!
  SystemOrganization addCategory: #'System-Change Notification'!
  SystemOrganization addCategory: #'System-Changes'!
  SystemOrganization addCategory: #'System-Digital Signatures'!
  SystemOrganization addCategory: #'System-Digital Signatures-Tests'!
  SystemOrganization addCategory: #'System-Download'!
  SystemOrganization addCategory: #'System-FilePackage'!
  SystemOrganization addCategory: #'System-FileRegistry'!
  SystemOrganization addCategory: #'System-Finalization'!
  SystemOrganization addCategory: #'System-Localization'!
  SystemOrganization addCategory: #'System-Object Events'!
  SystemOrganization addCategory: #'System-Object Events-Tests'!
  SystemOrganization addCategory: #'System-Object Storage'!
  SystemOrganization addCategory: #'System-Pools'!
- SystemOrganization addCategory: #'System-Serial Port'!
- SystemOrganization addCategory: #'System-Support'!
  SystemOrganization addCategory: #'System-Preferences'!
+ SystemOrganization addCategory: #'System-Serial Port'!
+ SystemOrganization addCategory: #'System-Support'!
  SystemOrganization addCategory: #'System-Support-Tests'!
  SystemOrganization addCategory: #'System-Tools'!

Item was changed:
  ----- Method: AppRegistry class>>askForDefault (in category 'as yet unclassified') -----
  askForDefault
 
  self registeredClasses isEmpty ifTrue:
  [self inform: 'There are no ', self appName, ' applications registered.'.
  ^ default := nil].
  self registeredClasses size = 1 ifTrue:
  [^ default := self registeredClasses anyOne].
  default :=  UIManager default
+ chooseFrom: (self registeredClasses collect: [:ea | ea nameForViewer])
- chooseFrom: self registeredClasses
  values: self registeredClasses
  title: 'Which ', self appName, ' would you prefer?'.
  default ifNil: [default := self registeredClasses first].
  ^default.!