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.!