[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