[Pkg] Monticello Public: Monticello.impl-kph.621.mcz
squeak-dev-noreply at lists.squeakfoundation.org
squeak-dev-noreply at lists.squeakfoundation.org
Wed Feb 11 16:15:28 UTC 2009
A new version of Monticello.impl was added to project Monticello Public:
http://www.squeaksource.com/mc/Monticello.impl-kph.621.mcz
==================== Summary ====================
Name: Monticello.impl-kph.621
Author: kph
Time: 11 February 2009, 4:15:14 pm
UUID: 76d64502-2370-4f6e-99d4-b5fe7dc52ffb
Ancestors: Monticello.impl-mtf.616
Revisit MCReader file services - thanks Brenda
see 7282
=============== Diff against Monticello.impl-mtf.616 ===============
Item was changed:
+ ----- Method: MCVersionReader class>>serviceLoadVersion (in category 'file services') -----
- ----- Method: MCVersionReader class>>serviceLoadVersion (in category '*monticello-file services-override-override') -----
serviceLoadVersion
^ (SimpleServiceEntry
provider: self
label: 'load version'
+ selector: #loadVersionFile:
- selector: #loadVersionStream:fromDirectory:
description: 'load a package version'
+ buttonLabel: 'load')!
- buttonLabel: 'load')
- argumentGetter: [ :fileList | { fileList readOnlyStream . fileList directory } ]!
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 changed:
+ ----- Method: MCVersionReader class>>serviceOpenVersion (in category 'file services') -----
- ----- Method: MCVersionReader class>>serviceOpenVersion (in category '*monticello-file services-override-override') -----
serviceOpenVersion
^ (SimpleServiceEntry
provider: self
label: 'open version'
+ selector: #openVersionFile:
- selector: #openVersionFromStream:
description: 'open a package version'
+ buttonLabel: 'open')!
- buttonLabel: 'open')
- argumentGetter: [ :fileList | fileList readOnlyStream ]!
Item was changed:
+ ----- Method: MCVersionReader class>>serviceMergeVersion (in category 'file services') -----
- ----- Method: MCVersionReader class>>serviceMergeVersion (in category '*monticello-file services-override-override') -----
serviceMergeVersion
^ (SimpleServiceEntry
provider: self
label: 'merge version'
+ selector: #mergeVersionFile:
- selector: #mergeVersionStream:
description: 'merge a package version into the image'
+ buttonLabel: 'merge')!
- buttonLabel: 'merge')
- argumentGetter: [ :fileList | fileList readOnlyStream ]!
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!
More information about the Packages
mailing list