[squeak-dev] The Trunk: MonticelloConfigurations-nice.121.mcz

commits at source.squeak.org commits at source.squeak.org
Fri Dec 6 23:21:49 UTC 2013


Nicolas Cellier uploaded a new version of MonticelloConfigurations to project The Trunk:
http://source.squeak.org/trunk/MonticelloConfigurations-nice.121.mcz

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

Name: MonticelloConfigurations-nice.121
Author: nice
Time: 7 December 2013, 12:21:38.051 am
UUID: cc848ba7-62b2-49d2-b2a0-56edca262bb7
Ancestors: MonticelloConfigurations-fbs.120

Move updateStream stuff to UpdateStream package
Note that the UI button 'post' is connected to this method #post.
There should be a way to hook those extensions (annotations?)

=============== Diff against MonticelloConfigurations-fbs.120 ===============

Item was removed:
- ----- Method: MCConfigurationBrowser>>post (in category 'actions') -----
- 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.!



More information about the Squeak-dev mailing list