The Trunk: MonticelloConfigurations-dtl.132.mcz

David T. Lewis uploaded a new version of MonticelloConfigurations to project The Trunk:
http://source.squeak.org/trunk/MonticelloConfigurations-dtl.132.mcz

==================== Summary ====================

Name: MonticelloConfigurations-dtl.132
Author: dtl
Time: 10 May 2015, 12:46:15.656 pm
UUID: 5cee23dd-fe38-41b9-afe0-25fb80f6ede7
Ancestors: MonticelloConfigurations-dtl.131

Fix updating from streams other than the default. For example:

  MCMcmUpdater
         updateFromRepository: 'http://www.squeaksource.com/OSProcess'
         baseName: 'update'

=============== Diff against MonticelloConfigurations-dtl.131 ===============

Item was added:
+ ----- Method: MCMcmUpdater class>>defaultBaseName (in category 'updating') -----
+ defaultBaseName
+ "If not otherwise specified, look for update maps with this base name"
+
+ ^ 'update'!

Item was added:
+ ----- Method: MCMcmUpdater class>>updateFromRepository: (in category 'updating') -----
+ updateFromRepository: updaterUrlKey
+ "Update using an MCMcmUpdater identified by updaterUrlKey using the default
+ update map baseName"
+
+ ^ self updateFromRepository: updaterUrlKey baseName: self defaultBaseName
+ !

Item was added:
+ ----- Method: MCMcmUpdater class>>updateFromRepository:baseName: (in category 'updating') -----
+ updateFromRepository: updaterUrlKey baseName: baseName
+ "Update using an MCMcmUpdater identified by updaterUrlKey, and using
+ update map baseName"
+
+ ^ (self updateMapName: baseName repository: updaterUrlKey)
+ updateFrom: updaterUrlKey!

Item was changed:
  ----- Method: MCMcmUpdater class>>updateFromServer (in category 'updating') -----
  updateFromServer
  "Update the image by loading all pending updates from the server."
 
+ ^self default updateFrom: self defaultUpdateURL
- ^self default updateFromServer
  !

Item was removed:
- ----- Method: MCMcmUpdater class>>updateUsing:baseName: (in category 'updating') -----
- updateUsing: updaterUrlKey baseName: baseName
- "Update using an MCMcmUpdater identified by updaterUrlKey, and using
- update map baseName"
-
- ^ (self updateMapName: baseName repository: updaterUrlKey) updateFromServer
- !

Item was added:
+ ----- Method: MCMcmUpdater>>updateFrom: (in category 'updating') -----
+ updateFrom: url
+ "Update the image by loading all pending updates from the server."
+ | config |
+ "Flush all caches. If a previous download failed this is often helpful"
+ MCFileBasedRepository flushAllCaches.
+ config := self updateFromRepositories: { url }.
+ config ifNil: [^self inform: 'Unable to retrieve updates from remote repository.' translated].
+ config setSystemVersion.
+ self inform: ('Update completed.
+ Current update number: ' translated, SystemVersion current highestUpdate).!

Item was removed:
- ----- Method: MCMcmUpdater>>updateFromServer (in category 'updating') -----
- updateFromServer
- "Update the image by loading all pending updates from the server."
- | config |
- "Flush all caches. If a previous download failed this is often helpful"
- MCFileBasedRepository flushAllCaches.
- config := MCMcmUpdater default updateFromDefaultRepository.
- config ifNil: [^self inform: 'Unable to retrieve updates from remote repository.' translated].
- config setSystemVersion.
- self inform: ('Update completed.
- Current update number: ' translated, SystemVersion current highestUpdate).!