[Pkg] The Trunk: Nebraska-ul.35.mcz

commits at source.squeak.org commits at source.squeak.org
Sun May 15 23:13:31 UTC 2011


Levente Uzonyi uploaded a new version of Nebraska to project The Trunk:
http://source.squeak.org/trunk/Nebraska-ul.35.mcz

==================== Summary ====================

Name: Nebraska-ul.35
Author: ul
Time: 16 May 2011, 1:12:25.082 am
UUID: a16e9957-7e89-f44b-b804-51dc3bac4151
Ancestors: Nebraska-dtl.34

Fixed and refactored all implementors of #encodedForRemoteCanvas.

=============== Diff against Nebraska-dtl.34 ===============

Item was changed:
  ----- Method: StrikeFont>>encodedForRemoteCanvas (in category '*nebraska-file in/out') -----
  encodedForRemoteCanvas
  
+ 	^String streamContents: [ :stream |
+ 		stream
+ 			nextPutAll: self familyName;
+ 			space;
+ 			nextPutAll: self name;
+ 			space;
+ 			print: self height;
+ 			space;
+ 			print: self emphasis ]!
- 	| stream |
- 	stream := RWBinaryOrTextStream on: ''.
- 	stream nextPutAll: self familyName.
- 	stream nextPut: Character space.
- 	stream nextPutAll: self name.
- 	stream nextPut: Character space.
- 	stream nextPutAll: self height asString.
- 	stream nextPut: Character space.
- 	stream nextPutAll: self emphasis asString.
- 	^ stream contents asString.
- !

Item was changed:
+ ----- Method: StrikeFontSet>>encodedForRemoteCanvas (in category '*nebraska-file in/out') -----
- ----- Method: StrikeFontSet>>encodedForRemoteCanvas (in category '*nebraska-as yet unclassified') -----
  encodedForRemoteCanvas
  
+ 	^String streamContents: [ :stream |
+ 		stream
+ 			nextPutAll: self familyName;
+ 			space;
+ 			print: self pointSize;
+ 			space;
+ 			print: self emphasis ]!
- 	| stream |
- 	stream := RWBinaryOrTextStream on: ''.
- 	stream nextPutAll: self familyName.
- 	stream nextPut: Character space.
- 	stream nextPutAll: self pointSize asString.
- 	stream nextPut: Character space.
- 	stream nextPutAll: self emphasis asString.
- 	^ stream contents asString.
- !

Item was changed:
  ----- Method: TTCFont>>encodedForRemoteCanvas (in category '*nebraska-file in/out') -----
  encodedForRemoteCanvas
  
+ 	^String streamContents: [ :stream |
+ 		stream
+ 			nextPutAll: self familyName;
+ 			space;
+ 			print: self pointSize;
+ 			space;
+ 			print: self emphasis ]!
- 	^ self familyName, ' ', self pointSize printString, ' ', self emphasis printString.
- !



More information about the Packages mailing list