[squeak-dev] The Trunk: SMBase-dtl.131.mcz
commits at source.squeak.org
commits at source.squeak.org
Fri Dec 21 13:57:02 UTC 2012
David T. Lewis uploaded a new version of SMBase to project The Trunk:
http://source.squeak.org/trunk/SMBase-dtl.131.mcz
==================== Summary ====================
Name: SMBase-dtl.131
Author: dtl
Time: 16 December 2012, 6:04:50.573 pm
UUID: 688798d6-12c7-4c6d-8cca-1f6539b446d8
Ancestors: SMBase-cmm.130
SqueakMap does not consider 'Squeak 4.4' and 'Squeak4.4' to be the same version, but it probably should do so. Remove spaces from the version string compare.
=============== Diff against SMBase-cmm.130 ===============
Item was changed:
----- Method: SMPackageRelease>>isCompatibleWithCurrentSystemVersion (in category 'testing') -----
isCompatibleWithCurrentSystemVersion
"Return true if this release is listed as being compatible with the SystemVersion of the current image. Only checks major/minor version number; does not differentiate between alpha/beta/gamma releases. Checks version categories of both the SMPackageRelease and the parent SMPackage."
| current |
+ current := (self majorMinorVersionFrom: SystemVersion current version)
+ copyWithout: Character space.
- current := self majorMinorVersionFrom: SystemVersion current version.
self categories, self package categories do: [:c |
((c parent name = 'Squeak versions') and: [
+ ((self majorMinorVersionFrom: c name)
+ copyWithout: Character space) = current])
+ ifTrue: [^true]].
- (self majorMinorVersionFrom: c name) = current])
- ifTrue: [^true]].
^ false
+ !
-
- " ^ (self categories, self package categories
- detect:
- [:cat | (cat parent name = 'Squeak versions')
- and: [(SystemVersion new version: cat name) majorMinorVersion = SystemVersion current majorMinorVersion]]
- ifNone: []) notNil
- "!
More information about the Squeak-dev
mailing list
|