The Trunk: UpdateStream-pre.8.mcz

Patrick Rein uploaded a new version of UpdateStream to project The Trunk:
http://source.squeak.org/trunk/UpdateStream-pre.8.mcz

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

Name: UpdateStream-pre.8
Author: pre
Time: 7 October 2016, 9:08:28.891404 am
UUID: 068ac226-4fee-8d4c-82a8-602d55d4f067
Ancestors: UpdateStream-mt.7

Remove post method which was used in the MonticelloConfigurations tool

=============== Diff against UpdateStream-mt.7 ===============

Item was removed:
- ----- Method: MCConfigurationBrowser>>post (in category '*UpdateStream') -----
- post
- "Take the current configuration and post an update"
- | name update managers names choice |
- (self checkRepositories and: [self checkDependencies]) ifFalse: [^self].
- name := UIManager default
- request: 'Update name (.cs) will be appended):'
- initialAnswer: self configuration suggestedNameOfNextVersion.
- name isEmpty ifTrue:[^self].
- self configuration name: name.
- update := MCPseudoFileStream on: (String new: 100).
- update localName: name, '.cs'.
- update nextPutAll: '"Change Set: ', name.
- update cr; nextPutAll: 'Date: ', Date today printString.
- update cr; nextPutAll: 'Author: Posted by Monticello'.
- update cr; cr; nextPutAll: 'This is a configuration map created by Monticello."'.
-
- update cr; cr; nextPutAll: '(MCConfiguration fromArray: #'.
- self configuration fileOutOn: update.
- update nextPutAll: ') upgrade.'.
- update position: 0.
-
- managers := Smalltalk at: #UpdateManager ifPresent:[:mgr| mgr allRegisteredManagers].
- managers ifNil:[managers := #()].
- managers size > 0 ifTrue:[
- | servers index |
- servers := ServerDirectory groupNames asSortedArray.
- names := (managers collect:[:each| each packageVersion]), servers.
- index := UIManager default chooseFrom: names lines: {managers size}.
- index = 0 ifTrue:[^self].
- index <= managers size ifTrue:[
- | mgr |
- mgr := managers at: index.
- ^mgr publishUpdate: update.
- ].
- choice := names at: index.
- ] ifFalse:[
- names := ServerDirectory groupNames asSortedArray.
- choice := UIManager default chooseFrom: names values: names.
- choice == nil ifTrue: [^ self].
- ].
- (ServerDirectory serverInGroupNamed: choice) putUpdate: update.!