The Trunk: Morphic-kfr.922.mcz

Karl Ramberg uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-kfr.922.mcz

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

Name: Morphic-kfr.922
Author: kfr
Time: 24 April 2015, 4:13:33.081 pm
UUID: c78fb937-e299-304a-9c56-ae1d5ee527d0
Ancestors: Morphic-mt.921

Convenience method that return a string with the morphs layoutProperties.

=============== Diff against Morphic-mt.921 ===============

Item was added:
+ ----- Method: LayoutProperties>>stringWithLayout (in category 'table defaults') -----
+ stringWithLayout
+ | defaultValues uniqueValues |
+ defaultValues := TableLayoutProperties new.
+ uniqueValues := OrderedCollection new.
+ self class allInstVarNames
+ doWithIndex: [:title :index | (self instVarAt: index)
+ = (defaultValues instVarAt: index)
+ ifFalse: [uniqueValues add: title]].
+ ^ String
+ streamContents: [:aStream |
+ aStream nextPutAll: 'TableLayout new '.
+ uniqueValues
+ do: [:title | aStream nextPutAll: title;
+ nextPut: $:;
+ space;
+
+ print: (self instVarNamed: title).
+ (title = uniqueValues last)
+ ifTrue:[ aStream nextPut:$.]
+ ifFalse:[ aStream nextPut: $;; cr]
+ ]]!