[squeak-dev] The Trunk: Universes-tfel.41.mcz

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 ]!