Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.772.mcz

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

Name: Morphic-mt.772
Author: mt
Time: 6 March 2015, 12:10:55.322 pm
UUID: 01c63ecd-5c74-5946-b459-75db9e82725a
Ancestors: Morphic-mt.771

Object explorer wrappers prepared to be used in columns. Some comments for tree morph updated.

=============== Diff against Morphic-mt.771 ===============

Item was changed:
  ListItemWrapper subclass: #ObjectExplorerWrapper
  	instanceVariableNames: 'itemName parent'
+ 	classVariableNames: 'ShowContentsInColumns'
- 	classVariableNames: ''
  	poolDictionaries: ''
  	category: 'Morphic-Explorer'!
  
  !ObjectExplorerWrapper commentStamp: '<historical>' prior: 0!
  Contributed by Bob Arning as part of the ObjectExplorer package.
  !

Item was added:
+ ----- Method: ObjectExplorerWrapper class>>showContentsInColumns (in category 'preferences') -----
+ showContentsInColumns
+ 	<preference: 'Use columns in object explorer'
+ 		categoryList: #(Tools exploring)
+ 		description: 'If enabled, the object explorer will show key in the first column and values in the second column.'
+ 		type: #Boolean>
+ 	^ ShowContentsInColumns ifNil: [true]!

Item was added:
+ ----- Method: ObjectExplorerWrapper class>>showContentsInColumns: (in category 'preferences') -----
+ showContentsInColumns: aBoolean
+ 
+ 	ShowContentsInColumns := aBoolean.!

Item was changed:
  ----- Method: ObjectExplorerWrapper>>asString (in category 'converting') -----
  asString
+ 	| explorerString string separator |
- 	| explorerString string |
  	explorerString := 
  		[item asExplorerString]
  			on: Error 
  			do: ['<error: ', item class name, ' in asExplorerString: evaluate "' , itemName , ' asExplorerString" to debug>'].
+ 	separator := self class showContentsInColumns
+ 		ifTrue: [String tab]
+ 		ifFalse: [': '].
+ 	string := (itemName ifNotNil: [itemName, separator] ifNil: ['']) , explorerString.
- 	string := (itemName ifNotNil: [itemName , ': '] ifNil: ['']) , explorerString.
  	(string includes: Character cr)
  		ifTrue: [^ string withSeparatorsCompacted].
  	^ string!

Item was changed:
  ----- Method: ObjectExplorerWrapper>>icon (in category 'accessing') -----
  icon
  	"Answer a form to be used as icon"
  	^ Preferences visualExplorer
+ 		ifTrue: [(item iconOrThumbnailOfSize: 12)
+ 			ifNil: [self class showContentsInColumns
+ 				ifTrue: [ToolIcons iconNamed: #blank] 
+ 				ifFalse: [nil]]]
- 		ifTrue: [item iconOrThumbnailOfSize: 16]
  		ifFalse: [nil]!

Item was changed:
  ----- Method: SimpleHierarchicalListMorph>>autoDeselect: (in category 'initialization') -----
  autoDeselect: trueOrFalse
+ 	"When selecting a selected item, it will be deselected. See #mouseUp:."
+ 	
- 	"Enable/disable autoDeselect (see class comment)"
  	autoDeselect := trueOrFalse.!

Item was changed:
  ----- Method: SimpleHierarchicalListMorph>>columns: (in category 'accessing') -----
  columns: anArray
+ 	"You can specify columns or specs for columns. This depends on the actual morph that is used as item. ObjectExplorers produce items that support exact numbers, blocks, and nil for max width."
+ 	
- 
  	columns := anArray!