[Pkg] The Trunk: Morphic-kfr.924.mcz

commits at source.squeak.org commits at source.squeak.org
Fri Apr 24 16:20:42 UTC 2015


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!



More information about the Packages mailing list