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

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

Name: Morphic-mt.790
Author: mt
Time: 30 March 2015, 11:01:51.98 am
UUID: 3c6e6fbe-1550-9f4a-bf0c-df2afe94ef69
Ancestors: Morphic-mt.789

Fixed object explorer wrapper to set #parent for external #explorerContents.

=============== Diff against Morphic-mt.789 ===============

Item was changed:
  ----- Method: ObjectExplorerWrapper>>contents (in category 'accessing') -----
  contents
  
+ 	(self object respondsTo: #explorerContents) ifTrue: [
+ 		^ self object explorerContents
+ 			do: [:wrapper | wrapper parent: self];
+ 			yourself].
- 	(self object respondsTo: #explorerContents) ifTrue: [^ self object explorerContents].
  	"For all others, show named vars first, then indexed vars"
  	^(self object class allInstVarNames asOrderedCollection withIndexCollect: [:each :index |
  		self class
  			with: (self object instVarAt: index)
  			name: each
  			model: self object
  			parent: self]) ,
  	((1 to: self object basicSize) collect: [:index |
  		self class
  			with: (self object basicAt: index)
  			name: index printString
  			model: self object
  			parent: self])!

Item was added:
+ ----- Method: ObjectExplorerWrapper>>parent: (in category 'accessing') -----
+ parent: aWrapper
+ 	
+ 	parent := aWrapper.!

Item was changed:
  ----- Method: ObjectExplorerWrapper>>setItem:name:model:parent: (in category 'initialization') -----
  setItem: anObject name: aString model: aModel parent: itemParent
  
+ 	self parent: itemParent.
- 	parent := itemParent.
  	self setItem: anObject name: aString model: aModel!