[Pkg] The Trunk: SMBase-cmm.126.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Mar 16 17:52:25 UTC 2011
Chris Muller uploaded a new version of SMBase to project The Trunk:
http://source.squeak.org/trunk/SMBase-cmm.126.mcz
==================== Summary ====================
Name: SMBase-cmm.126
Author: cmm
Time: 16 March 2011, 12:51:53.282 pm
UUID: 312e1a35-79c2-4722-8872-8565d5b0d0f3
Ancestors: SMBase-cmm.123, SMBase-cmm.125
Resaving so that the working-copy only has one ancestor.
=============== Diff against SMBase-cmm.123 ===============
Item was changed:
----- Method: SMFileCache>>add: (in category 'services') -----
add: aDownloadable
"Conditionally download the downloadable object into the cache.
Return true on success, otherwise false."
+ aDownloadable downloadFileName isEmptyOrNil ifTrue: [ ^ false ].
-
^(self includes: aDownloadable)
ifTrue: [true]
ifFalse: [self download: aDownloadable]!
Item was added:
+ ----- Method: SMFileCache>>remove: (in category 'services') -----
+ remove: aDownloadable
+ "Remove aDownloadable from the cache, if it exists."
+ (self includes: aDownloadable) ifTrue:
+ [ aDownloadable cacheDirectory deleteFileNamed: aDownloadable downloadFileName ]!
Item was added:
+ ----- Method: SMPackageRelease>>refreshInCache (in category 'services') -----
+ refreshInCache
+ "Delete and re-download the file back into the cache.
+ Return true on success, otherwise false."
+ map cache remove: self.
+ ^ self
+ sha1sum: nil;
+ ensureInCache!
Item was added:
+ ----- Method: SMSqueakMap>>installPackageNamed:version: (in category 'public-installation') -----
+ installPackageNamed: aString version: version
+ "Install the release <version> of the package with a name
+ beginning with aString (see method comment
+ of #packageWithNameBeginning:). <version> is the
+ user-specified version name."
+ | package release |
+ package := self packageWithNameBeginning: aString.
+ package ifNil: [self error: 'No package found with name beginning with ', aString].
+ release := package releaseWithVersion: version.
+ release ifNil: [self error: 'No package release found with version ', version].
+ ^self installPackageRelease: release!
More information about the Packages
mailing list