[squeak-dev] The Trunk: Tools-mt.549.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Mar 11 04:21:35 UTC 2015


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