[squeak-dev] Update stream transition

Nicolas Cellier nicolas.cellier.aka.nice at gmail.com
Thu Aug 6 20:24:31 UTC 2015

Skipped content of type multipart/alternative-------------- next part --------------
"update to latest cog version but not spur..."

| url repository updateList updater lastUpdateMap config |
url := MCMcmUpdater defaultUpdateURL.
repository := MCRepositoryGroup default repositories 
			detect:[:r| r description = url]
			ifNone:[ | r |
				r := MCHttpRepository location: url user: '' password: ''.
				MCRepositoryGroup default addRepository: r.
updater :=  [MCMcmUpdater default] ifError: [MCMcmUpdater].
lastUpdateMap := [updater lastUpdateMap] ifError: [MCMcmUpdater classPool at: #LastUpdateMap].
updateList := updater updateListFor: repository.
updateList := updateList select: [:e | e key < 323].
updateList := updater refreshUpdateMapFor: repository with: updateList.
updateList do:[:assoc|
				ProgressNotification signal: '' extra: 'Processing ', assoc value.
				config := repository versionNamed: assoc value.
				updater updateFromConfig: config.
				lastUpdateMap at: repository description put: assoc key.
			] displayingProgress: 'Processing configurations'.
config ifNil: [^updater inform: 'Unable to retrieve updates from remote repository.' translated].
config setSystemVersion.
updater inform: ('Update completed.
Current update number: ' translated, SystemVersion current highestUpdate).

More information about the Squeak-dev mailing list