[squeak-dev] The Trunk: Morphic-cmm.739.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Aug 4 18:37:04 UTC 2014


Chris Muller uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-cmm.739.mcz

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

Name: Morphic-cmm.739
Author: cmm
Time: 4 August 2014, 1:35:54.444 pm
UUID: 267ead18-a751-4d26-b317-1e09c6442940
Ancestors: Morphic-kfr.733, Morphic-cmm.738

Re-save changes from nice.736 and nice.737.

=============== Diff against Morphic-kfr.733 ===============

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: TextEditor>>selectionAsStream (in category 'accessing-selection') -----
  selectionAsStream
  	"Answer a ReadStream on the text in the paragraph that is currently  selected."
  
+ 	^ReadStream
- 	^ReadWriteStream
  		on: paragraph string
  		from: self startIndex
  		to: self stopIndex - 1!



More information about the Squeak-dev mailing list