should avoid to OBPAckage2Browser kind of name Stef Begin forwarded message:
From: commits@source.squeak.org Date: September 28, 2009 6:34:25 PM GMT+02:00 To: squeak-dev@lists.squeakfoundation.org Subject: [squeak-dev] The Trunk: System-cwp.152.mcz Reply-To: squeak-dev@lists.squeakfoundation.org
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.!