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.!