The Inbox: System-spd.355.mcz

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!