The Trunk: Tools-mtf.241.mcz

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!