[Pkg] The Trunk: Tools-mtf.241.mcz

[commits at source.squeak.org]

Matthew Fulmer uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-mtf.241.mcz

==================== Summary ====================

Name: Tools-mtf.241
Author: mtf
Time: 3 June 2010, 9:04:30.598 am
UUID: e208838f-f4c7-4bb6-9b7a-aac477960685
Ancestors: Tools-dtl.240

Made the explore pointers menu item in the object explorer work:
http://bugs.squeak.org/view.php?id=7059

=============== Diff against Tools-dtl.240 ===============

Item was changed:
  ----- Method: Inspector>>explorePointers (in category 'menu commands') -----
  explorePointers
+ 	self selectionIndex = 0 ifTrue: [^ self changed: #flash].
  	PointerExplorer new openExplorerFor: self selection!

Item was added:
+ ----- Method: ObjectExplorer>>explorePointers (in category 'menus') -----
+ explorePointers
+ 	"Open a PointerExplorer on the current selection"
+ 	PointerExplorer new openExplorerFor: self object!

Item was changed:
  ----- Method: ObjectExplorer>>genericMenu: (in category 'menus') -----
  genericMenu: aMenu 
  	"Borrow a menu from my inspector"
  	| insideObject menu parentObject |
  	currentSelection
  		ifNil: [menu := aMenu.
  			menu
  				add: '*nothing selected*'
  				target: self
  				selector: #yourself]
  		ifNotNil: [insideObject := self object.
  			parentObject := self parentObject.
  			inspector
  				ifNil: [inspector := Inspector new].
  			inspector inspect: parentObject;
  				 object: insideObject.
  			aMenu defaultTarget: inspector.
  			inspector fieldListMenu: aMenu.
  			aMenu items
+ 				do: [:i | (#(#inspectSelection #exploreSelection #referencesToSelection #defsOfSelection #objectReferencesToSelection #chasePointers #explorePointers) includes: i selector)
- 				do: [:i | (#(#inspectSelection #exploreSelection #referencesToSelection #defsOfSelection #objectReferencesToSelection #chasePointers ) includes: i selector)
  						ifTrue: [i target: self]].
  			aMenu addLine;
  				add: 'monitor changes'
  				target: self
  				selector: #monitor:
  				argument: currentSelection].
  	monitorList isEmptyOrNil
  		ifFalse: [aMenu addLine;
  				add: 'stop monitoring all'
  				target: self
  				selector: #stopMonitoring].
  	^ aMenu!