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]!