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!
squeak-dev@lists.squeakfoundation.org