[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