A new version of System was added to project The Inbox: http://source.squeak.org/inbox/System-spd.355.mcz
==================== Summary ====================
Name: System-spd.355 Author: spd Time: 1 October 2010, 1:06:53.037 pm UUID: 0d476cb0-127d-4563-a895-d2757ce29b52 Ancestors: System-dtl.354
REFACTOR: Added intention revealing helper method to AppRegistry class>>register: Old: register: aProviderClass ... default := nil. "so it'll ask for a new default..." ...
New: ... self askForNewDefaultOnNextRequest. ...
=============== Diff against System-dtl.354 ===============
Item was added: + ----- Method: AppRegistry class>>askForNewDefaultOnNextRequest (in category 'as yet unclassified') ----- + askForNewDefaultOnNextRequest + + default := nil.!
Item was changed: ----- Method: AppRegistry class>>register: (in category 'as yet unclassified') ----- register: aProviderClass + + (self registeredClasses includes: aProviderClass) ifTrue: [ ^ self ]. + self askForNewDefaultOnNextRequest. "if you're registering a new app you probably want to use it" + self registeredClasses add: aProviderClass.! - (self registeredClasses includes: aProviderClass) ifFalse: - [default := nil. "so it'll ask for a new default, since if you're registering a new app you probably want to use it" - self registeredClasses add: aProviderClass].!
Item was removed: - ----- Method: Preferences class>>alwaysShowConnectionVocabulary (in category 'standard queries') ----- - alwaysShowConnectionVocabulary - ^ self - valueOfFlag: #alwaysShowConnectionVocabulary - ifAbsent: [false]!
Item was added: + ----- Method: Preferences class>>chasingBrowsers (in category 'standard queries') ----- + chasingBrowsers + ^ self + valueOfFlag: #chasingBrowsers + ifAbsent: [true]!
Item was added: + ----- Method: Preferences class>>mercuryPanel (in category 'standard queries') ----- + mercuryPanel + ^ self + valueOfFlag: #mercuryPanel + ifAbsent: [false]!
Item was removed: - ----- Method: Preferences class>>useSmartLabels (in category 'standard queries') ----- - useSmartLabels - ^ self - valueOfFlag: #useSmartLabels - ifAbsent: [false]!
Item was removed: - ----- Method: ReferenceStream>>project (in category 'writing') ----- - project - "Return the project we are writing or nil" - - (topCall respondsTo: #isCurrentProject) ifTrue: [^ topCall]. - (topCall respondsTo: #do:) ifTrue: [1 to: 5 do: [:ii | - ((topCall at: ii) respondsTo: #isCurrentProject) ifTrue: [^ topCall at: ii]]]. - ^ nil!
squeak-dev@lists.squeakfoundation.org