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

> From: [hidden email]
> Date: September 28, 2009 6:34:25 PM GMT+02:00
> To: [hidden email]
> Subject: [squeak-dev] The Trunk: System-cwp.152.mcz
> Reply-To: [hidden email]
>
> 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.!
>
>