The Trunk: Morphic-kfr.924.mcz

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

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

Name: Morphic-kfr.924
Author: kfr
Time: 24 April 2015, 6:19:43.384 pm
UUID: 329016fb-1de4-be46-a4a5-e962f46a6f32
Ancestors: Morphic-kfr.923

Small fixes for copying layout properties

=============== Diff against Morphic-kfr.923 ===============

Item was changed:
  ----- Method: LayoutProperties>>stringWithLayout (in category 'table defaults') -----
  stringWithLayout
  | defaultValues uniqueValues |
  defaultValues := TableLayoutProperties new.
+ uniqueValues := self class allInstVarNames
+ select: [:title | (self instVarNamed: title)
+ ~= (defaultValues instVarNamed: title)].
- 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]
  ]]!

Item was changed:
  ----- Method: Morph>>copyLayoutProperties (in category 'layout-properties') -----
  copyLayoutProperties
+ ^[Clipboard clipboardText: self layoutProperties stringWithLayout] ifError:[ nil ] !
- ^Clipboard clipboardText: self layoutProperties stringWithLayout!