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

commits at source.squeak.org commits at source.squeak.org
Fri Apr 24 14:14:33 UTC 2015


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]
+ 						]]!



More information about the Packages mailing list