The Trunk: Morphic-mt.790.mcz

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!