A new version of Installer-Core was added to project Installer: http://www.squeaksource.com/Installer/Installer-Core-kph.244.mcz
==================== Summary ====================
Name: Installer-Core-kph.244 Author: kph Time: 23 October 2008, 8:58:28 pm UUID: 2cc0e2b8-0b72-4299-b6cf-ffdf247f82f5 Ancestors: Installer-Core-kph.243
moved InstallerMonticello configuration/public interface to the instance side for compatability
=============== Diff against Installer-Core-kph.243 ===============
Item was added: + ----- Method: InstallerMonticello>>magma:port: (in category 'public interface') ----- + magma: host port: aport + + ^ self mc: (self classMCMagmaRepository new) host: host port: aport; yourself!
Item was added: + ----- Method: InstallerMonticello>>ftp:directory:user:password: (in category 'public interface') ----- + ftp: host directory: dir user: name password: secret + "Installer mc ftp: 'mc.gjallar.se' directory: '' user: 'gjallar' password: secret." + + ^ self + mc: (self classMCFtpRepository host: host directory: dir user: name password: '') + root: dir!
Item was added: + ----- Method: InstallerMonticello>>directory: (in category 'public interface') ----- + directory: dir + + | directory | + directory := dir isString + ifTrue: [ FileDirectory on: (FileDirectory default fullNameFor: dir) ] + ifFalse: [ dir ]. + + ^ self mc: (self classMCDirectoryRepository new directory: directory; yourself) root: dir!
Item was added: + ----- Method: InstallerMonticello>>cache (in category 'public interface') ----- + cache + | repo | + ^ self + mc: (repo := self classMCCacheRepository default) + root: repo directory localName + !
Item was added: + ----- Method: InstallerMonticello>>unload: (in category 'public interface') ----- + unload: match + + (MCWorkingCopy allManagers select: [ :wc | match match: (wc package name) ]) + do: [ :wc | + self logCR: 'Unloading ', wc package asString. + wc unload.]. + self unloadCleanUp!
Item was added: + ----- Method: InstallerMonticello>>unloadCleanUp (in category 'public interface') ----- + unloadCleanUp + + SystemOrganization removeEmptyCategories. + + "Until Mantis 5718 is addressed" + Smalltalk at: #PackagePaneBrowser ifPresent: [ :ppbClass | ppbClass allInstancesDo: [ :ppb | ppb updatePackages ] ]. + Smalltalk at: #Browser ifPresent: [ :bClass | bClass allInstancesDo: [ :b | b updateSystemCategories ] ]. + MCFileBasedRepository freeSomeSpace. + SmalltalkImage current fixObsoleteReferences.!
Item was added: + ----- Method: InstallerMonticello>>goods:port: (in category 'public interface') ----- + goods: host port: aport + + ^ self mc: ((self classMCGOODSRepository new) host: host port: aport; yourself) + !
Item was changed: ----- Method: Installer class>>monticello (in category 'monticello') ----- monticello
+ ^ InstallerMonticello new! - ^ InstallerMonticello!
Item was added: + ----- Method: InstallerMonticello>>http:user:password: (in category 'public interface') ----- + http: aUrl user: name password: secret + + | repo | + ^ self + mc: (repo := self classMCHttpRepository location: aUrl user: name password: secret) + root: repo locationWithTrailingSlash!
Item was removed: - ----- Method: InstallerMonticello class>>unloadCleanUp (in category 'unload') ----- - unloadCleanUp - - SystemOrganization removeEmptyCategories. - - "Until Mantis 5718 is addressed" - Smalltalk at: #PackagePaneBrowser ifPresent: [ :ppbClass | ppbClass allInstancesDo: [ :ppb | ppb updatePackages ] ]. - Smalltalk at: #Browser ifPresent: [ :bClass | bClass allInstancesDo: [ :b | b updateSystemCategories ] ]. - MCFileBasedRepository freeSomeSpace. - SmalltalkImage current fixObsoleteReferences.!
Item was removed: - ----- Method: InstallerMonticello class>>cache (in category 'instance creation') ----- - cache - | mc | - ^ self new - mc: (mc := self classMCCacheRepository default) - root: mc directory localName - !
Item was removed: - ----- Method: InstallerMonticello class>>goods:port: (in category 'instance creation') ----- - goods: host port: aport - - ^ self new mc: ((self classMCGOODSRepository new) host: host port: aport; yourself) - !
Item was removed: - ----- Method: InstallerMonticello class>>unload: (in category 'unload') ----- - unload: match - - (MCWorkingCopy allManagers select: [ :wc | match match: (wc package name) ]) - do: [ :wc | - self logCR: 'Unloading ', wc package asString. - wc unload.]. - self unloadCleanUp!
Item was removed: - ----- Method: InstallerMonticello class>>magma:port: (in category 'instance creation') ----- - magma: host port: aport - - ^ self new mc: (self classMCMagmaRepository new) host: host port: aport; yourself!
Item was removed: - ----- Method: InstallerMonticello class>>http:user:password: (in category 'instance creation') ----- - http: aUrl user: name password: secret - - | mc | - ^ self new - mc: (mc := self classMCHttpRepository location: aUrl user: name password: secret) - root: mc locationWithTrailingSlash!
Item was removed: - ----- Method: InstallerMonticello class>>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." - - ^ self new - mc: (self classMCFtpRepository host: host directory: dir user: name password: '') - root: dir!
Item was removed: - ----- Method: InstallerMonticello class>>directory: (in category 'instance creation') ----- - directory: dir - - | directory | - directory := dir isString - ifTrue: [ FileDirectory on: (FileDirectory default fullNameFor: dir) ] - ifFalse: [ dir ]. - - ^ self new - mc: (self classMCDirectoryRepository new directory: directory; yourself) - root: dir!
packages@lists.squeakfoundation.org