[Pkg] The Trunk: SMBase-cmm.126.mcz

[commits at source.squeak.org]

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!