The Trunk: Tools-mt.549.mcz

> Marcel Taeumel uploaded a new version of Tools to project The Trunk:
> http://source.squeak.org/trunk/Tools-mt.549.mcz
>
> ==================== Summary ====================
>
> Name: Tools-mt.549
> Author: mt
> Time: 10 March 2015, 9:21:15.462 pm
> UUID: f9b0e046-e25d-7848-89e5-ded3d82e6177
> Ancestors: Tools-cmm.548
>
> #chasePointers fixed in object explorer
>
> =============== Diff against Tools-cmm.548 ===============
>
> Item was changed:
>   ----- Method: ObjectExplorer>>chasePointers (in category 'menus - callbacks') -----
>   chasePointers
>         "Open a PointerFinder on the selected item"
>         | path sel savedRoot saved |
>         path := OrderedCollection new.
>         sel := currentSelection.
>         [ sel isNil ] whileFalse: [ path addFirst: sel asString. sel := sel parent ].
>         path addFirst: #openPath.
>         path := path asArray.
> +       savedRoot := self rootObject.
> -       savedRoot := root.
>         saved := self object.
> +       [ self rootObject: nil.
> -       [ root := nil.
>         self changed: #getList.
>         (Smalltalk includesKey: #PointerFinder)
>                 ifTrue: [PointerFinder on: saved]
>                 ifFalse: [self objectReferencesToSelection ]]
> +               ensure: [ self rootObject: savedRoot.
> -               ensure: [ root := savedRoot.
>                         self changed: #getList.
>                         self changed: path.
>                 ]!
>
>