[squeak-dev] The Trunk: SMBase-cmm.116.mcz
commits at source.squeak.org
commits at source.squeak.org
Sat Feb 12 22:46:48 UTC 2011
Chris Muller uploaded a new version of SMBase to project The Trunk:
http://source.squeak.org/trunk/SMBase-cmm.116.mcz
==================== Summary ====================
Name: SMBase-cmm.116
Author: cmm
Time: 4 February 2011, 3:44:47.026 pm
UUID: fbcef7d4-fe1f-4b7b-9d3d-e1261b69175a
Ancestors: SMBase-cmm.113, SMBase-cmm.115
Moved a method.
=============== Diff against SMBase-cmm.113 ===============
Item was changed:
----- Method: SMFileCache>>includes: (in category 'services') -----
+ includes: anSMObject
- includes: anSMObject
"Check if the cache holds the file for the object."
+ ^ anSMObject downloadFileName notNil and: [ anSMObject cacheDirectory fileExists: anSMObject downloadFileName ]!
-
- ^(anSMObject cacheDirectory)
- fileExists: anSMObject downloadFileName!
Item was added:
+ ----- Method: SMObject>>asString (in category 'accessing') -----
+ asString
+ ^ self name!
Item was removed:
- ----- Method: SMObject>>created: (in category 'accessing') -----
- created: c
- created := c!
Item was removed:
- ----- Method: SMObject>>updated: (in category 'accessing') -----
- updated: c
- updated := c!
Item was changed:
----- Method: SMPackage>>addRelease: (in category 'private') -----
+ addRelease: aSMPackageRelease
- addRelease: aRelease
"Add the release. Make sure package is set."
+ (releases includes: aSMPackageRelease) ifFalse: [ releases add: aSMPackageRelease ].
+ aSMPackageRelease package: self.
+ ^ aSMPackageRelease!
-
- releases add: aRelease.
- aRelease package: self.
- ^aRelease!
Item was changed:
----- Method: SMPackageRelease>>downloadUrl: (in category 'accessing') -----
+ downloadUrl: urlString
+ downloadUrl := urlString!
- downloadUrl: anObject
- ^downloadUrl := anObject!
Item was changed:
----- Method: SMPackageRelease>>note: (in category 'accessing') -----
+ note: aString
+ note := aString!
- note: anObject
- ^note := anObject!
Item was changed:
----- Method: SMPackageRelease>>version: (in category 'accessing') -----
+ version: aString
+ version := aString!
- version: anObject
- ^version := anObject!
More information about the Squeak-dev
mailing list
|