tim Rowledge uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-tpr.813.mcz

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

Name: Tools-tpr.813
Author: tpr
Time: 10 May 2018, 2:54:14.550558 pm
UUID: 01e3ab07-6692-4a92-a287-da9d4452de56
Ancestors: Tools-cmm.812

Remove the non-working (and too much work to be worth it) #browseClass send. Opening a full class browser is as useful and actually works.
Rename #classHierarchy to #browseClassHiearchy because it actually makes sense to name similar methods similarly rather than with wildy unconnected names that just makes life more annoying that is strictly required. Deprecate the old version. (See 60Deprecated-tpr.19)

=============== Diff against Tools-cmm.812 ===============

Item was added:
+ ----- Method: ObjectExplorer>>browseClassHierarchy (in category 'menus - actions') -----
+ browseClassHierarchy
+ 	"Create and schedule a class list browser on the receiver's hierarchy."
+ 
+ 	self systemNavigation
+ 		spawnHierarchyForClass: self selectedClass
+ 		selector: nil
+ !

Item was removed:
- ----- Method: ObjectExplorer>>classHierarchy (in category 'menus - actions') -----
- classHierarchy
- 	"Create and schedule a class list browser on the receiver's hierarchy."
- 
- 	self systemNavigation
- 		spawnHierarchyForClass: self selectedClass
- 		selector: nil
- !

Item was changed:
  ----- Method: ObjectExplorer>>explorerKey:from:event: (in category 'menus') -----
  explorerKey: aChar from: view event: event
  
  	event anyModifierKeyPressed ifFalse: [^ false].
  
  	self object ifNotNil: [
  		aChar == $i ifTrue: [self inspectSelection. ^ true].
  		aChar == $I ifTrue: [self exploreSelection. ^ true].
  
  		aChar == $b ifTrue:	[self browseFull. ^ true].
+ 		aChar == $h ifTrue:	[self browseClassHierarchy. ^ true].
- 		aChar == $h ifTrue:	[self classHierarchy. ^ true].
  		aChar == $c ifTrue: [self copyName. ^ true].
  		aChar == $p ifTrue: [self browseFullProtocol. ^ true].
  		aChar == $N ifTrue: [self browseClassRefs. ^ true].
  		aChar == $v ifTrue: [self viewerForValue. ^ true]].
  
  	^ false!

Item was changed:
  ----- Method: ObjectExplorer>>mainTreeListMenu: (in category 'menus') -----
  mainTreeListMenu: aMenu
  	<treeListMenu>
  
  	aMenu addStayUpItemSpecial.
  
  	aMenu addList: #(
  		('inspect (i)'						inspectSelection)
  		('explore (I)'						exploreSelection)
  		-
  		('method refs to this inst var'		referencesToSelection)
  		('methods storing into this inst var'	defsOfSelection)
  		('objects pointing to this value'		objectReferencesToSelection)
  		('chase pointers'					chasePointersForSelection)
+ 		('explore pointers'					explorePointersForSelection)
- 		('explore pointers'				explorePointersForSelection)
  		-
  		('browse full (b)'					browseFull)
+ 		('browse hierarchy (h)'				browseClassHierarchy)
- 		('browse class'						browseClass)
- 		('browse hierarchy (h)'					classHierarchy)
  		('browse protocol (p)'				browseFullProtocol)
  		-
  		('references... (r)'					browseVariableReferences)
+ 		('assignments... (a)'				browseVariableAssignments)
- 		('assignments... (a)'					browseVariableAssignments)
  		('class refs (N)'						browseClassRefs)
  		-
  		('copy name (c)'					copyName)		
  		('copy value'						copyValue)		
  		('basic inspect'						inspectBasic)).
  
  	Smalltalk isMorphic ifTrue: [
  		aMenu addList: #(
  			-
  			('viewer for this value (v)'		viewerForValue))].
  
  	aMenu addList: #(
  		-
  		('monitor changes'		monitorSelection)).
  				
  	monitorList isEmptyOrNil ifFalse: [
  		aMenu addList: #(
  			('stop monitoring all'		stopMonitoring))].
  				
  	^ aMenu!