[Pkg] The Trunk: SMBase-cmm.114.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.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'!