Nice to see some dusting off of Nebraska..

On Sun, May 15, 2011 at 6:13 PM,  <commits at source.squeak.org> wrote:
> 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.
> - !
>
>
>