This one is also to be removed please...
Sorry for the noise.


2014-07-20 22:37 GMT+02:00 <commits at source.squeak.org>:

> Nicolas Cellier uploaded a new version of Morphic to project The Trunk:
> http://source.squeak.org/trunk/Morphic-nice.735.mcz
>
> ==================== Summary ====================
>
> Name: Morphic-nice.735
> Author: nice
> Time: 20 July 2014, 10:36:28.157 pm
> UUID: add43698-a89f-480a-9bc6-9f8bac49558a
> Ancestors: Morphic-cmm.734
>
> Don't use RWBinaryOrTextStream where a simple WriteStream would perfectly
> do the job.
>
> =============== Diff against Morphic-cmm.734 ===============
>
> Item was changed:
>   ----- Method: MorphicProject class>>compileNewDefaultBackgroundFrom: (in
> category 'utilities') -----
>   compileNewDefaultBackgroundFrom: aForm
>         "Compile a new #defaultBackgroundForm method in this class-side
> which uses aForm as the background."
> +       | formStream base64 |
> +       formStream := ByteArray new writeStream.
> -       | formStream base64Stream |
> -       formStream := RWBinaryOrTextStream on: ByteArray new.
>         PNGReadWriter
>                 putForm: aForm
>                 onStream: formStream.
> +       base64 := formStream base64Encoded.
> -       base64Stream := Base64MimeConverter mimeEncode: formStream.
>         self class
>                 compile:
>                         (String streamContents:
>                                 [ : stream | stream
>                                          nextPutAll: 'defaultBackgroundForm
>         ^ Form fromBinaryStream: ' ;
>                                          nextPut: $' ;
> +                                        nextPutAll: base64 ;
> -                                        nextPutAll: base64Stream contents
> ;
>                                          nextPut: $' ;
>                                         nextPutAll: ' base64Decoded
> asByteArray readStream' ])
>                 classified: 'class initialization'!
>
> Item was changed:
>   ----- Method: TextMorph>>getAllButFirstCharacter (in category 'scripting
> access') -----
>   getAllButFirstCharacter
>         "Obtain all but the first character from the receiver; if that
> would be empty, return a black dot"
>
>         | aString |
> +       ^ (aString := text string) size > 1 ifTrue: [aString copyFrom: 2
> to: aString size] ifFalse: ['·']!
> -       ^ (aString := text string) size > 1 ifTrue: [aString copyFrom: 2
> to: aString size] ifFalse: ['·']!
>
> Item was changed:
>   ----- Method: TextMorph>>getFirstCharacter (in category 'accessing')
> -----
>   getFirstCharacter
>         "obtain the first character from the receiver if it is empty,
> return a
>         black dot"
>         | aString |
>         ^ (aString := text string) isEmpty
> +               ifTrue: ['·']
> -               ifTrue: ['·']
>                 ifFalse: [aString first asString] !
>
> Item was changed:
>   ----- Method: TextMorph>>getLastCharacter (in category 'accessing') -----
>   getLastCharacter
>         "obtain the last character from the receiver if it is empty,
> return a black dot"
>
>         | aString |
> +       ^ (aString := text string) size > 0 ifTrue: [aString last
> asString] ifFalse: ['·']!
> -       ^ (aString := text string) size > 0 ifTrue: [aString last
> asString] ifFalse: ['·']!
>
> Item was changed:
>   ----- Method: TextMorph>>setAllButFirstCharacter: (in category
> 'scripting access') -----
>   setAllButFirstCharacter: source
>         "Set all but the first char of the receiver to the source"
>         | aChar chars |
>         aChar := source asCharacter.
>         (chars := self getCharacters) isEmpty
> +               ifTrue: [self newContents: '·' , source asString]
> -               ifTrue: [self newContents: '·' , source asString]
>                 ifFalse: [chars first = aChar
>                                 ifFalse: [""
>                                         self
>                                                 newContents: (String
>
> streamContents: [:aStream |
>
> aStream nextPut: chars first.
>
> aStream nextPutAll: source])]] !
>
> Item was changed:
>   ----- Method: TheWorldMenu class>>loadSqueakMap (in category 'open-menu
> registry') -----
>   loadSqueakMap
> +       "Load the externally-maintained SqueakMap package if it is not
> already loaded.  Based on code by Göran Hultgren"
> -       "Load the externally-maintained SqueakMap package if it is not
> already loaded.  Based on code by Göran Hultgren"
>
>         | server |
>         Socket initializeNetwork.
>         server := #('map1.squeakfoundation.org' 'map2.squeakfoundation.org'
> 'map.squeak.org' 'map.bluefish.se' 'marvin.bluefish.se:8000')
>                 detect: [:srv | | addr answer |
>                         addr := NetNameResolver addressForName: (srv upTo:
> $:) timeout: 5.
>                         addr notNil and: [
>                                 answer := HTTPSocket httpGet: ('http://',
> srv, '/sm/ping').
>                                 answer isString not and: [answer contents
> = 'pong']]]
>                 ifNone: [^ self inform: 'Sorry, no SqueakMap master server
> responding.'].
>         server ifNotNil: ["Ok, found an SqueakMap server"
>                 ChangeSet newChangesFromStream:
>                         ((('http://', server,
> '/sm/packagebyname/squeakmap/downloadurl')
>                         asUrl retrieveContents content) asUrl
> retrieveContents content unzipped
>                         readStream)
>                 named: 'SqueakMap']!
>
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20140720/764ea8fd/attachment.htm