Chris Muller uploaded a new version of Installer-Core to project The Treated Inbox: http://source.squeak.org/treated/Installer-Core-cmm.378.mcz
==================== Summary ====================
Name: Installer-Core-cmm.378 Author: cmm Time: 9 August 2013, 5:04:23.858 pm UUID: 79285e19-2913-476e-b396-b1a01a652edc Ancestors: Installer-Core-cmm.377
Allow the default repositories for external-packages to be preempted or reinforced.
=============== Diff against Installer-Core-cmm.377 ===============
Item was changed: Object subclass: #Installer instanceVariableNames: 'answers packages messagesToSuppress useFileIn noiseLevel currentRepository' + classVariableNames: 'InstallerBindings IsSetToTrapErrors Remembered Repositories SkipLoadingTests ValidationBlock' - classVariableNames: 'InstallerBindings IsSetToTrapErrors Remembered SkipLoadingTests ValidationBlock' poolDictionaries: '' category: 'Installer-Core'!
!Installer commentStamp: 'kph 3/30/2009 01:29' prior: 0! Documentation now available at http://installer.pbwiki.com/Installer
useFileIn - flag to load source.st rather than using Monticello!
Item was added: + ----- Method: Installer class>>defaultRepositoryFor: (in category 'repositories') ----- + defaultRepositoryFor: anAssociation + ^ (self perform: anAssociation key) + project: anAssociation value ; + mc!
Item was added: + ----- Method: Installer class>>fallbackRepositoryFor:is: (in category 'repositories') ----- + fallbackRepositoryFor: scope is: anMCRepository + self + overrideRepositoryFor: scope + with: + (MCRepositoryGroup new + addRepository: (self defaultRepositoryFor: scope) ; + addRepository: anMCRepository ; + yourself)!
Item was added: + ----- Method: Installer class>>overrideRepository:with: (in category 'repositories') ----- + overrideRepository: scope with: anMCRepository + "Override the standard repository specified by scope with anMCRepository. To override an entire repository, specify scope as the repository selector. To override a single project within a repository, scope should be an Association whose key is the repository selector and value is the project name." + self repositories + at: scope + put: anMCRepository!
Item was added: + ----- Method: Installer class>>packageCache (in category 'repositories') ----- + packageCache + ^ MCCacheRepository default!
Item was added: + ----- Method: Installer class>>preemptRepository:with: (in category 'repositories') ----- + preemptRepository: scope with: anMCRepository + self + overrideRepositoryFor: scope + with: + (MCRepositoryGroup new + addRepository: anMCRepository ; + addRepository: (self defaultRepositoryFor: scope) ; + yourself)!
Item was added: + ----- Method: Installer class>>removeOverride: (in category 'repositories') ----- + removeOverride: scope + "Remove override specified by scope and return to using the default repository for packages within that scope." + ^ self repositories + removeKey: scope + ifAbsent: [ ]!
Item was changed: + ----- Method: Installer class>>repositories (in category 'repositories') ----- - ----- Method: Installer class>>repositories (in category 'instanciation') ----- repositories + ^ Repositories ifNil: [ Repositories := Dictionary new ]! - - ^ self class organization listAtCategoryNamed: 'repositories'. - !
Item was added: + ----- Method: Installer class>>repositoryFor: (in category 'repositories') ----- + repositoryFor: anAssociation + | rep | + rep := self repositories + at: anAssociation + ifAbsent: + [ self repositories + at: anAssociation value + ifAbsent: + [ self repositories + at: anAssociation key + ifAbsent: [ ^ self defaultRepositoryFor: anAssociation ] ] ]. + ^ rep isSymbol + ifTrue: [ self defaultRepositoryFor: rep -> anAssociation value ] + ifFalse: [ rep ]!
Item was changed: ----- Method: Installer>>htmlValidator (in category 'external-packages') ----- htmlValidator "Validates HTML and CSS pages against W3C DTD." + ^ { #ss3 -> 'htmlcssparser'. + 'HTML' }! - ^ { #ss -> 'htmlcssparser'. - 'HTML-tb.37' }!
Item was changed: ----- Method: Installer>>setRepository: (in category 'private') ----- setRepository: anAssociation + currentRepository := self class repositoryFor: anAssociation! - currentRepository := (self class perform: anAssociation key) - project: anAssociation value ; - mc!
packages@lists.squeakfoundation.org