[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