The Trunk: Tools-mt.804.mcz

Marcel Taeumel uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-mt.804.mcz

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

Name: Tools-mt.804
Author: mt
Time: 5 April 2018, 10:29:51.105307 am
UUID: 7490573c-8cd9-0d46-afe3-bea1c791066d
Ancestors: Tools-mt.803

Consistently return the domain object in question for any inspect/explore/browse call to it.

Background: We did change the semantics of #inspect for the Squeak 5.1 release to harmonize #explore. After several ongoing discussions with Chris (cmm), we found a more usefull consent. That is, call ToolSet directly if you want to gain access to the created tool window(s). Call the object directly to get the object back. Now you can sprinkle #inspect, #explore, #browse etc. in your code during exploratory debugging sessions again.

Let's hope this works for everybody. See the deprecated #exploreAndYourself to better understand what is not required anymore.

=============== Diff against Tools-mt.803 ===============

Item was changed:
  ----- Method: Inspector>>exploreObject (in category 'toolbuilder') -----
  exploreObject
  "Switch to an explorer tool."
 
  | window currentBounds |
  currentBounds := ToolBuilder findDefault getBoundsForWindow: self containingWindow.
 
  "Close first because MVC fiddles around with processes."
  self changed: #close.
 
+ window := ToolSet explore: self object.
- window := self object explore.
 
  "---- In MVC, the lines after this will not be executed ---"
 
  window model setExpression: self expression.
  ToolBuilder findDefault setBoundsForWindow: window to: currentBounds.!

Item was changed:
  ----- Method: Object>>basicInspect (in category '*Tools-inspecting') -----
  basicInspect
  "Create and schedule an Inspector in which the user can examine the
  receiver's variables. This method should not be overriden."
+ ToolSet basicInspect: self!
- ^ToolSet basicInspect: self!

Item was changed:
  ----- Method: Object>>browse (in category '*Tools-Browsing') -----
  browse
+ ToolSet browseClass: self class!
- ^ToolSet browseClass: self class!

Item was changed:
  ----- Method: Object>>explore (in category '*Tools-Explorer') -----
  explore
+ ToolSet explore: self!
- ^ToolSet explore: self!

Item was removed:
- ----- Method: Object>>exploreAndYourself (in category '*Tools-Explorer') -----
- exploreAndYourself
- "i.e. explore; yourself. Thisway i can peek w/o typing all the parentheses"
- self explore.
-      ^self!

Item was changed:
  ----- Method: Object>>explorePointers (in category '*Tools-Debugger') -----
  explorePointers
+ PointerExplorer openOn: self!
- PointerExplorer openOn: self.!

Item was changed:
  ----- Method: Object>>exploreWithLabel: (in category '*Tools-Explorer') -----
  exploreWithLabel: label
+ ToolSet explore: self label: label!
-
- ^ ObjectExplorer openOn: self withLabel: label!

Item was changed:
  ----- Method: Object>>inspect (in category '*Tools-inspecting') -----
  inspect
  "Create and schedule an Inspector in which the user can examine the receiver's variables."
+ ToolSet inspect: self!
- ^ ToolSet inspect: self!

Item was changed:
  ----- Method: Object>>inspectWithLabel: (in category '*Tools-inspecting') -----
  inspectWithLabel: aLabel
  "Create and schedule an Inspector in which the user can examine the receiver's variables."
+ ToolSet inspect: self label: aLabel!
- ^ToolSet inspect: self label: aLabel!

Item was changed:
  ----- Method: ObjectExplorer>>inspectObject (in category 'toolbuilder') -----
  inspectObject
  "Switch to an inspector tool."
 
  | window currentBounds |
  currentBounds := ToolBuilder findDefault getBoundsForWindow: self containingWindow.
 
  "Close first because MVC fiddles around with processes."
  self changed: #close.
 
+ window := ToolSet inspect: self rootObject.
- window := self rootObject inspect.
 
  "---- In MVC, the lines after this will not be executed ---"
 
  window model setExpression: self expression.
  ToolBuilder findDefault setBoundsForWindow: window to: currentBounds.!

Item was added:
+ ----- Method: StandardToolSet class>>explore:label: (in category 'inspecting') -----
+ explore: anObject label: label
+
+ ^ ObjectExplorer openOn: anObject withLabel: label!