[Pkg] Monticello Public: Monticello.impl-kph.622.mcz

[squeak-dev-noreply at lists.squeakfoundation.org]

A new version of Monticello.impl was added to project Monticello Public:
http://www.squeaksource.com/mc/Monticello.impl-kph.622.mcz

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

Name: Monticello.impl-kph.622
Author: kph
Time: 11 February 2009, 4:22:24 pm
UUID: 0a6c9555-e9cf-4aab-82af-0feae1a6d4d6
Ancestors: Monticello.impl-kph.620, Monticello.impl-kph.621

Merged 621 into MIT safe 620

=============== Diff against Monticello.impl-kph.620 ===============

Item was added:
+ ----- Method: MCMczReader class>>initialize (in category 'accessing') -----
+ initialize
+ 	
+ 	FileList registerFileReader: self.
+ 
+ !

Item was added:
+ ----- Method: MCMcdReader class>>initialize (in category 'as yet unclassified') -----
+ initialize
+ 	
+ 	FileList registerFileReader: self.
+ 
+ !

Item was added:
+ ----- Method: MCVersionReader class>>freeSomeSpace (in category 'file services') -----
+ freeSomeSpace
+ 	"get rid of AnObsoleteMCMcReader and AnObsoleteMCMcvReader"
+ 	(FileList registeredFileReaderClasses  select: [ :ea | ea isObsolete ]) do: 
+ 		[ :ea | FileList unregisterFileReader: ea ]
+ !

Item was changed:
  ----- Method: MCVersionReader class>>initialize (in category 'file services') -----
  initialize
  	"MCVersionReader initialize"
  	Smalltalk 
  		at: #MczInstaller
  		ifPresent: [:installer | FileList unregisterFileReader: installer].
- 	self concreteSubclasses do: [:aClass | FileList registerFileReader: aClass].
  
+ 	self freeSomeSpace.
- 	"get rid of AnObsoleteMCMcReader and AnObsoleteMCMcvReader"
- 	(FileList registeredFileReaderClasses  select: [ :ea | ea isObsolete ]) do: 
- 		[ :ea | FileList unregisterFileReader: ea ]
  !

Item was added:
+ ----- Method: MCVersionReader class>>registerServices (in category 'file services') -----
+ registerServices
+ 
+ 	"MCVersionReader initialize"
+ 
+ 	Smalltalk 
+ 		at: #MczInstaller
+ 		ifPresent: [:installer | FileList unregisterFileReader: installer].
+ 
+ !

Item was added:
+ ----- Method: MCMcmReader class>>initialize (in category 'instance creation') -----
+ initialize
+ 	
+ 	FileList registerFileReader: self.
+ 
+ !

Item was removed:
- ----- Method: MCVersionReader class>>openVersionFromStream: (in category '*monticello-file services') -----
- openVersionFromStream: stream
- 	(self versionFromStream: stream) open!

Item was removed:
- ----- Method: MCVersionReader class>>loadVersionStream:fromDirectory: (in category '*monticello-file services') -----
- loadVersionStream: stream fromDirectory: directory
- 	| version |
- 	version := self versionFromStream: stream.
- 	directory isRemoteDirectory ifFalse: [
- 	version workingCopy repositoryGroup addRepository:
- 		(MCDirectoryRepository new directory: directory). ].
- 	version load.
- !

Item was removed:
- ----- Method: MCVersionReader class>>mergeVersionStream: (in category '*monticello-file services') -----
- mergeVersionStream: stream
- 	(self versionFromStream: stream) merge!