The Trunk: Tools-fbs.495.mcz

Frank Shearar uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-fbs.495.mcz

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

Name: Tools-fbs.495
Author: fbs
Time: 14 September 2013, 9:10:45.216 pm
UUID: 0c4e44e4-89f8-134a-9b9f-ccf3d868ef6b
Ancestors: Tools-fbs.494

Allow ToolSets to browse a class (definition), not just a method in a class.

StringHolder >> #browseClass just browses methods, like browseMethodFull. Make #browseMethodFull a bit more useful, and show the duplication by having #browseClass delegate to #browseMethodFull. I deliberately leave deprecating #browseClass as a potential later action.


Ancestors: Tools-fbs.494
Added, Modified, Deleted vs. Tools-fbs.494:
A StandardToolSet class>>browseClass:
M StringHolder>>browseClass
M StringHolder>>browseMethodFull

=============== Diff against Tools-fbs.494 ===============

Item was added:
+ ----- Method: StandardToolSet class>>browseClass: (in category 'browsing') -----
+ browseClass: aClass
+ "Open a browser"
+ ^SystemBrowser default fullOnClass: aClass.!

Item was changed:
  ----- Method: StringHolder>>browseClass (in category '*Tools') -----
  browseClass
  "Open an class browser on this class and method"
+ ^ self browseMethodFull.!
-
- self selectedClassOrMetaClass ifNotNil: [
- Browser newOnClass: self selectedClassOrMetaClass
- selector: self selectedMessageName]!

Item was changed:
  ----- Method: StringHolder>>browseMethodFull (in category '*Tools') -----
  browseMethodFull
  "Create and schedule a full Browser and then select the current class and message."
+ ^ self selectedClassOrMetaClass ifNotNil: [ :cls |
+ self selectedMessageName
+ ifNotNil: [ :sel |
+ ToolSet browse: cls selector: sel]
+ ifNil: [ToolSet browserClass: cls]].!
-
- | myClass |
- ^ (myClass := self selectedClassOrMetaClass) ifNotNil:
- [ToolSet browse: myClass selector: self selectedMessageName]!