Chris Muller uploaded a new version of MonticelloConfigurations to project The Trunk:
http://source.squeak.org/trunk/MonticelloConfigurations-cmm.97.mcz

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

Name: MonticelloConfigurations-cmm.97
Author: cmm
Time: 13 August 2011, 7:39:26.257 pm
UUID: 1824aaa0-7327-4eb5-9f64-b76f259b116a
Ancestors: MonticelloConfigurations-bf.96

- When storing a Configuration, instead of complaining to the user about what versions are missing in the target repository, just copy the missing versions in automatically.

=============== Diff against MonticelloConfigurations-bf.96 ===============

Item was changed:
  ----- Method: MCConfigurationBrowser>>checkDependencies (in category 'dependencies') -----
  checkDependencies
+ 	| missing |
+ 	missing := (self dependencies collect:
+ 		[ : ea | ea versionInfo name ]) asSet.
+ 	self repositories do:
+ 		[ : eachRepository | eachRepository cacheAllFileNamesDuring:
+ 			[ missing copy do:
+ 				[ : eachVersionName | (eachRepository includesVersionNamed: eachVersionName) ifTrue: [ missing remove: eachVersionName ] ] ] ].
+ 	^ missing isEmpty or:
+ 		[ self selectDependency: missing anyOne.
+ 		self confirm:
+ 			(String streamContents:
+ 				[ : strm | strm
+ 					 nextPutAll: 'No repository found for' ;
+ 					 cr.
+ 				missing do:
+ 					[ : r | strm
+ 						 nextPutAll: r ;
+ 						 cr ].
+ 				strm nextPutAll: 'Do you still want to store?' ]) ]!
- 	^self checkModified and: [self checkMissing]!

Item was removed:
- ----- Method: MCConfigurationBrowser>>checkMissing (in category 'dependencies') -----
- checkMissing
- 	| missing |
- 	missing := (self dependencies collect:
- 		[ : ea | ea versionInfo name ]) asSet.
- 	self repositories do:
- 		[ : eachRepository | eachRepository cacheAllFileNamesDuring:
- 			[ missing copy do:
- 				[ : eachVersionName | (eachRepository includesVersionNamed: eachVersionName) ifTrue: [ missing remove: eachVersionName ] ] ] ].
- 	^ missing isEmpty or:
- 		[ self selectDependency: missing anyOne.
- 		self confirm:
- 			(String streamContents:
- 				[ : strm | strm
- 					 nextPutAll: 'No repository found for' ;
- 					 cr.
- 				missing do:
- 					[ : r | strm
- 						 nextPutAll: r ;
- 						 cr ].
- 				strm nextPutAll: 'Do you still want to store?' ]) ]!

Item was changed:
  ----- Method: MCConfigurationBrowser>>store (in category 'actions') -----
  store
+ 	(self checkRepositories and: [ self checkDependencies ]) ifFalse: [ ^ self ].
+ 	self pickName ifNotNil:
+ 		[ : name | self configuration name: name.
+ 		self pickRepository ifNotNil:
+ 			[ : repo | repo cacheAllFileNamesDuring:
+ 				[ self configuration dependencies do:
+ 					[ : each | repo
+ 						versionWithInfo: each versionInfo
+ 						ifAbsent: [ repo storeVersion: (MCRepositoryGroup default versionWithInfo: each versionInfo) ] ] ].
+ 			repo storeVersion: self configuration ] ]!
- 	(self checkRepositories and: [self checkDependencies]) ifFalse: [^self].
- 	self pickName ifNotNil: [:name |
- 		self configuration name: name.
- 		self pickRepository ifNotNil: [:repo |
- 			repo storeVersion: self configuration]].!