[Pkg] The Trunk: SMBase-cmm.114.mcz
commits at source.squeak.org
commits at source.squeak.org
Sat Feb 12 22:46:14 UTC 2011
Chris Muller uploaded a new version of SMBase to project The Trunk:
http://source.squeak.org/trunk/SMBase-cmm.114.mcz
==================== Summary ====================
Name: SMBase-cmm.114
Author: cmm
Time: 24 January 2011, 8:46:30.772 pm
UUID: ceb816af-e56d-441e-b341-01841fea95b4
Ancestors: SMBase-nice.112
Initial support for SMReleaseBrowser.
=============== Diff against SMBase-nice.112 ===============
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 added:
+ ----- Method: SMObject>>isPersistent (in category 'testing') -----
+ isPersistent
+ ^ created ~= updated!
Item was changed:
SMDocument subclass: #SMPackage
+ instanceVariableNames: 'head releases packageInfoName repository'
- instanceVariableNames: 'releases packageInfoName repository'
classVariableNames: ''
poolDictionaries: ''
category: 'SMBase-domain'!
!SMPackage commentStamp: '<historical>' prior: 0!
An SMPackage represents a named piece of an installable "thing" in the image. Typically it is a code package, but it can be other things too.
It owns a collection of SMPackageReleases. Each release represents a version of the package, and each release has a URL that refers to the actual content that can be installed.
An SMPackage also knows its packageInfoName which can tie it into the image.!
Item was added:
+ ----- Method: SMPackage>>head (in category 'accessing') -----
+ head
+ "The head release loads the latest development MC package versions."
+ ^ head!
Item was added:
+ ----- Method: SMPackage>>head: (in category 'accessing') -----
+ head: aSMPackageRelease
+ "The head release loads the latest development MC package versions."
+ head := aSMPackageRelease!
Item was added:
+ ----- Method: SMPackageRelease>>compatibility (in category 'accessing') -----
+ compatibility
+ ^ self categories
+ detect:
+ [ : each | each parent = self map compatibilityLevels ]
+ ifNone: [ ]!
Item was added:
+ ----- Method: SMPackageRelease>>compatibility: (in category 'accessing') -----
+ compatibility: aSMCategory
+ aSMCategory parent = self map compatibilityLevels ifFalse: [ self error: 'Not a compatibility category.' ].
+ self compatibility ifNotNilDo:
+ [ : oldCat | self removeCategory: oldCat ].
+ self addCategory: aSMCategory!
Item was added:
+ ----- Method: SMPackageRelease>>license (in category 'accessing') -----
+ license
+ ^ self categories
+ detect:
+ [ : each | each parent = self map licenses ]
+ ifNone: [ ]!
Item was added:
+ ----- Method: SMPackageRelease>>license: (in category 'accessing') -----
+ license: aSMCategory
+ aSMCategory parent = self map licenses ifFalse: [ self error: 'Not a license category.' ].
+ self license ifNotNilDo:
+ [ : oldCat | self removeCategory: oldCat ].
+ self addCategory: aSMCategory!
Item was added:
+ ----- Method: SMPackageRelease>>licenses (in category 'accessing') -----
+ licenses
+ "Answer the Licenses parent SMCategory."
+ ^ self map licenses!
Item was added:
+ ----- Method: SMPackageRelease>>maturity (in category 'accessing') -----
+ maturity
+ ^ self categories
+ detect:
+ [ : each | each parent = self map maturityLevels ]
+ ifNone: [ nil ]!
Item was added:
+ ----- Method: SMPackageRelease>>maturity: (in category 'accessing') -----
+ maturity: aSMCategory
+ aSMCategory parent = self map maturityLevels ifFalse: [ self error: 'Not a maturity category.' ].
+ self maturity ifNotNilDo:
+ [ : oldCat | self removeCategory: oldCat ].
+ self addCategory: aSMCategory!
Item was changed:
----- Method: SMPackageRelease>>note: (in category 'accessing') -----
+ note: aString
+ note := aString!
- note: anObject
- ^note := anObject!
Item was added:
+ ----- Method: SMPackageRelease>>parentVersion (in category 'accessing') -----
+ parentVersion
+ ^ self parentRelease ifNotNilDo: [ : pr | pr version ]!
Item was added:
+ ----- Method: SMPackageRelease>>squeakVersion (in category 'accessing') -----
+ squeakVersion
+ ^ self categories
+ detect:
+ [ : each | each parent = self map squeakVersions ]
+ ifNone: [ ]!
Item was added:
+ ----- Method: SMPackageRelease>>squeakVersion: (in category 'accessing') -----
+ squeakVersion: aSMCategory
+ aSMCategory parent = self map squeakVersions ifFalse: [ self error: 'Not a squeakVersion category.' ].
+ self squeakVersion ifNotNilDo:
+ [ : oldCat | self removeCategory: oldCat ].
+ self addCategory: aSMCategory!
Item was changed:
----- Method: SMPackageRelease>>version: (in category 'accessing') -----
+ version: aString
+ version := aString!
- version: anObject
- ^version := anObject!
Item was added:
+ ----- Method: SMSqueakMap>>compatibilityLevels (in category 'accessing') -----
+ compatibilityLevels
+ ^ self categoryWithNameBeginning: 'Compatibility level'!
Item was added:
+ ----- Method: SMSqueakMap>>licenses (in category 'accessing') -----
+ licenses
+ ^ self categoryWithNameBeginning: 'Licenses'!
Item was added:
+ ----- Method: SMSqueakMap>>maturityLevels (in category 'accessing') -----
+ maturityLevels
+ ^ self categoryWithNameBeginning: 'Maturity level'!
Item was added:
+ ----- Method: SMSqueakMap>>squeakVersions (in category 'accessing') -----
+ squeakVersions
+ ^ self categoryWithNameBeginning: 'Squeak versions'!
More information about the Packages
mailing list