[squeak-dev] The Trunk: Tools-mt.549.mcz
Chris Muller
asqueaker at gmail.com
Wed Mar 11 16:14:02 UTC 2015
Oops, thanks..!
On Tue, Mar 10, 2015 at 11:21 PM, <commits at source.squeak.org> wrote:
> 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.
> ]!
>
>
More information about the Squeak-dev
mailing list
|