[squeak-dev] The Trunk: MonticelloConfigurations-bf.99.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Nov 16 18:33:47 UTC 2011


Bert Freudenberg uploaded a new version of MonticelloConfigurations to project The Trunk:
http://source.squeak.org/trunk/MonticelloConfigurations-bf.99.mcz

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

Name: MonticelloConfigurations-bf.99
Author: bf
Time: 16 November 2011, 7:33:37.129 pm
UUID: 9a92c4ba-fcff-4dd8-968a-b17fc99c98c0
Ancestors: MonticelloConfigurations-dtl.98

- individual working copies should not use the default  repository group but have their own
- enforce for packages in update map

=============== Diff against MonticelloConfigurations-dtl.98 ===============

Item was changed:
  ----- Method: MCConfiguration>>depsSatisfying:versionDo:displayingProgress: (in category 'private') -----
  depsSatisfying: selectBlock versionDo: verBlock displayingProgress: progressString 
  	| count action |
  	count := 0.
  	self repositories do: [ : eachRepository | MCRepositoryGroup default addRepository: eachRepository ].
  	action := [ : dep | | ver repo |
  	ver := dep versionInfo name.
  	repo := self repositories
  		detect:
  			[ : eachRepository | eachRepository includesVersionNamed: ver ]
  		ifNone:
  			[ self logError: 'Version ' , ver , ' not found in any repository'.
  			self logError: 'Aborting'.
  			^ count ].
  	(selectBlock value: dep) ifTrue:
  		[ | new |
  		new := self
  			versionNamed: ver
  			for: dep
  			from: repo.
  		new
  			ifNil:
  				[ self logError: 'Could not download version ' , ver , ' from ' , repo description.
  				self logError: 'Aborting'.
  				^ count ]
  			ifNotNil:
  				[ self
  					logUpdate: dep package
  					with: new.
  				self class extraProgressInfo ifTrue:
  					[ ProgressNotification
  						signal: ''
  						extra: 'Installing ' , ver ].
  				verBlock value: new.
  				count := count + 1 ] ].
+ 	dep package workingCopy newRepositoryGroupIfDefault. "fix old working copies"
  	dep package workingCopy repositoryGroup addRepository: repo ].
  	self class extraProgressInfo
  		ifTrue:
  			[ self dependencies
  				do: action
  				displayingProgress: progressString ]
  		ifFalse: [ self dependencies do: action ].
  	^ count!




More information about the Squeak-dev mailing list