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']! |
This one is also to be removed please... Sorry for the noise.2014-07-20 22:37 GMT+02:00 <[hidden email]>: Nicolas Cellier uploaded a new version of Morphic to project The Trunk: |
Free forum by Nabble | Edit this page |