[squeak-dev] The Trunk: Universes-tfel.41.mcz
commits at source.squeak.org
commits at source.squeak.org
Thu Sep 17 03:09:11 UTC 2009
Andreas Raab uploaded a new version of Universes to project The Trunk:
http://source.squeak.org/trunk/Universes-tfel.41.mcz
==================== Summary ====================
Name: Universes-tfel.41
Author: tfel
Time: 16 September 2009, 1:05:54 am
UUID: 1ee22880-a860-4f43-8172-1873ae06960d
Ancestors: Universes-ar.40
Url>>toText is deprecated. It is used all over the place here and the result is expected to be a String (as the toText method returned), so don't switch to asText here, as recommended in the deprecation warning, but use asString
=============== Diff against Universes-ar.40 ===============
Item was changed:
----- Method: UPackage>>= (in category 'comparing') -----
= anotherPackage
self hash = anotherPackage hash ifFalse: [ ^false ].
self name = anotherPackage name ifFalse: [ ^false ].
self version = anotherPackage version ifFalse: [ ^false ].
self category = anotherPackage category ifFalse: [ ^false ].
self depends = anotherPackage depends ifFalse: [ ^false ].
self provides = anotherPackage provides ifFalse: [ ^false ].
self squeakMapID = anotherPackage squeakMapID ifFalse: [ ^false ].
self url asString = anotherPackage url asString ifFalse: [ ^false ].
self maintainer = anotherPackage maintainer ifFalse: [ ^false ].
self homepage isNil = anotherPackage homepage isNil ifFalse: [ ^false ].
(self homepage isNil or: [
+ self homepage asString = anotherPackage homepage asString]) ifFalse: [ ^false ].
- self homepage toText = anotherPackage homepage toText]) ifFalse: [ ^false ].
self description = anotherPackage description ifFalse:[ ^false ].
^true
!
Item was changed:
----- Method: UPackage>>stringArrayEncoding (in category '*universes-messages') -----
stringArrayEncoding
^Array streamContents: [ :str |
str
nextPut: self name;
nextPut: self version printString;
nextPut: self description;
+ nextPut: (self url ifNil: [ '(no download url)' ] ifNotNil: [ self url asString ]);
+ nextPut: (self homepage ifNil: [ '' ] ifNotNil: [ self homepage asString ]);
- nextPut: (self url ifNil: [ '(no download url)' ] ifNotNil: [ self url toText ]);
- nextPut: (self homepage ifNil: [ '' ] ifNotNil: [ self homepage toText ]);
nextPut: self maintainer;
nextPut: self provides size printString;
nextPutAll: self provides;
nextPut: self depends size printString;
nextPutAll: self depends;
nextPut: 0 printString; "legacy conflicts field"
nextPut: self category printString;
nextPut: (self squeakMapID ifNil: [''] ifNotNil: [self squeakMapID asString])].!
Item was changed:
----- Method: UPackage>>xmlForExport (in category 'serializing') -----
xmlForExport
^String streamContents: [ :str |
str
nextPutAll: '<package>'; cr;
nextPutAll: '<name>'; nextPutAll: self name escapeEntities; nextPutAll: '</name>'; cr;
nextPutAll: '<version>'; nextPutAll: self version printString escapeEntities; nextPutAll: '</version>'; cr;
nextPutAll: '<category>'; print: self category; nextPutAll: '</category>'; cr;
nextPutAll: '<description>'; nextPutAll: self description escapeEntities; nextPutAll: '</description>'; cr.
self url ifNotNil: [
+ str nextPutAll: '<url>'; nextPutAll: self url asString escapeEntities; nextPutAll: '</url>'; cr ].
- str nextPutAll: '<url>'; nextPutAll: self url toText escapeEntities; nextPutAll: '</url>'; cr ].
self homepage ifNotNil: [
+ str nextPutAll: '<homepage>'; nextPutAll: self homepage asString escapeEntities; nextPutAll: '</homepage>'; cr ].
- str nextPutAll: '<homepage>'; nextPutAll: self homepage toText escapeEntities; nextPutAll: '</homepage>'; cr ].
str nextPutAll: '<maintainer>'; nextPutAll: self maintainer escapeEntities; nextPutAll: '</maintainer>'; cr.
str nextPutAll: '<provides>'.
self printXMLPackageList: self provides on: str.
str nextPutAll: '</provides>'.
str nextPutAll: '<depends>'.
self printXMLPackageList: self depends on: str.
str nextPutAll: '</depends>'.
squeakMapID ifNotNil: [
str nextPutAll: '<squeakMapID>'.
str nextPutAll: squeakMapID asString.
str nextPutAll: '</squeakMapID>'.
].
str nextPutAll: '</package>'; cr. ]!
Item was changed:
----- Method: UPackageEditor>>homepageString (in category 'accessors') -----
homepageString
^package homepage
ifNil: [ '' ]
+ ifNotNil: [ package homepage asString ]!
- ifNotNil: [ package homepage toText ]!
Item was changed:
----- Method: UPackageEditor>>urlString (in category 'accessors') -----
urlString
+ ^package url ifNotNil: [ package url asString ]!
- ^package url ifNotNil: [ package url toText ]!
More information about the Squeak-dev
mailing list
|