[Pkg] Installer: Installer-Core-kph.244.mcz
squeak-dev-noreply at lists.squeakfoundation.org
squeak-dev-noreply at lists.squeakfoundation.org
Thu Oct 23 19:58:34 UTC 2008
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!
More information about the Packages
mailing list