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

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

Name: Installer-Core-cmm.370
Author: cmm
Time: 4 May 2013, 5:23:43.356 pm
UUID: d393827d-917d-4b66-b807-72bf05f2bc12
Ancestors: Installer-Core-cmm.366, Installer-Core-fbs.369

Allow any MCRepositoryGroup to be specified as the "repository" from which Installer will install from, employing MCRepositoryGroup default as the default when no other is specified.

=============== Diff against Installer-Core-fbs.369 ===============

Item was changed:
  ----- Method: InstallerMonticello>>cache (in category 'instance creation') -----
  cache
+ 	
+ 	mc := self classMCCacheRepository default.
+ 	root := mc directory localName
+  !
- 	| cache |
- 	cache := self classMCCacheRepository default.
- 	mc addRepository: cache.
- 	root := cache directory localName.!

Item was removed:
- ----- Method: InstallerMonticello>>classMCRepositoryGroup (in category 'class references') -----
- classMCRepositoryGroup
- 
- 	^Smalltalk at: #MCRepositoryGroup ifAbsent: [ self error: 'Monticello not present' ]
- 	!

Item was changed:
  ----- Method: InstallerMonticello>>directory: (in category 'instance creation') -----
  directory: dir
+ 
  	| directory |
  	directory := dir isString 
  		ifTrue: [  FileDirectory on: (FileDirectory default fullNameFor: dir) ]
  		ifFalse: [ dir ].
  		
+ 	mc := self classMCDirectoryRepository new directory: directory; yourself.
- 	mc addRepository: (self classMCDirectoryRepository new directory: directory; yourself).
   	root := dir
  	
   !

Item was changed:
  ----- Method: InstallerMonticello>>ftp:directory:user:password: (in category 'instance creation') -----
  ftp: host directory: dir user: name password: secret
  	"Installer mc ftp: 'mc.gjallar.se' directory: '' user: 'gjallar' password: secret."
  	
+ 	mc := self classMCFtpRepository host: host directory: dir user: name password: secret.
- 	mc addRepository: (self classMCFtpRepository host: host directory: dir user: name password: secret; yourself).
  	root :=  dir.	
   !

Item was changed:
  ----- Method: InstallerMonticello>>goods:port: (in category 'instance creation') -----
  goods: host port: aport
  	
+ 	mc := (self classMCGOODSRepository new) host: host port: aport; yourself
- 	mc addRepository: ((self classMCGOODSRepository new) host: host port: aport; yourself)
   !

Item was changed:
  ----- Method: InstallerMonticello>>http:user:password: (in category 'instance creation') -----
  http: aUrl user: name password: secret
+ 	| url |
- 	| url http |
  	url := (aUrl includesSubString: '://')
  		ifTrue: [aUrl]
  		ifFalse: ['http://', aUrl].
+ 	mc := self classMCHttpRepository location: url user: name password: secret.
+ 	root := mc locationWithTrailingSlash	
- 	http := self classMCHttpRepository location: url user: name password: secret.
- 	mc addRepository: http.
- 	root := http locationWithTrailingSlash	
   !

Item was changed:
  ----- Method: InstallerMonticello>>initialize (in category 'public interface') -----
  initialize
  	super initialize.
+ 	mc := MCRepositoryGroup default!
- 	mc := MCRepositoryGroup new.!

Item was changed:
  ----- Method: InstallerMonticello>>label (in category 'accessing') -----
  label
+ 	^ 'repository:''', mc description, ''''!
- 	^ 'repositories: #(',
- 	((mc repositories allButFirst
- 		collect: [:repo | repo description surroundedBySingleQuotes])
- 			reduce: [:acc :each | acc, ' ', each]),
- 	');'.!

Item was changed:
  ----- Method: InstallerMonticello>>magma:port: (in category 'instance creation') -----
  magma: host port: aport
  	
+ 	mc := (self classMCMagmaRepository new) host: host port: aport; yourself
- 	mc addRepository: ((self classMCMagmaRepository new) host: host port: aport; yourself)
   !

Item was changed:
  ----- Method: InstallerMonticello>>mc (in category 'accessing') -----
  mc
+ 
- 	"Return the GROUP of Monticello repositories."
  	^ mc!

Item was changed:
  ----- Method: InstallerMonticello>>mc: (in category 'accessing') -----
  mc: aRepo
+ 
+ 	mc := aRepo!
- 	mc addRepository: aRepo!

Item was changed:
  ----- Method: InstallerMonticello>>normalizedRepositories (in category 'monticello') -----
  normalizedRepositories
  "Find an existing instance of any active repository so that we use whatever name and password the user usually uses. If not found, answer a copy"
  	^ mc repositories replace: [:repo |
+ 		(MCRepositoryGroup default repositories includes: repo)
- 		(self classMCRepositoryGroup default repositories includes: repo)
  			ifTrue: [repo]
  			ifFalse: [repo copy]]!