[Pkg] The Trunk: Tools-tpr.814.mcz

[commits at source.squeak.org]

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

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

Name: Tools-tpr.814
Author: tpr
Time: 10 May 2018, 3:46:56.604043 pm
UUID: 51286010-27d3-4475-88e1-381c5e1c8319
Ancestors: Tools-tpr.813

Remove spurious 'browse class' menu entry and keypress response, replace with correct opening of a full browser based on the selected item in the Inspector.

=============== Diff against Tools-tpr.813 ===============

Item was added:
+ ----- Method: Inspector>>browseClass (in category 'menu commands') -----
+ browseClass
+ 	"Open a full browser on the class of the selected item"
+ 
+ 	ToolSet browseClass: self selectedClass!

Item was changed:
  ----- Method: Inspector>>inspectorKey:from: (in category 'menu commands') -----
  inspectorKey: aChar from: view
  	"Respond to a Command key issued while the cursor is over my field list"
  
  	aChar == $i ifTrue: [^ self selection inspect].
  	aChar == $I ifTrue: [^ self selection explore].
+ 	aChar == $b ifTrue:	[^ self browseClass].
- 	aChar == $b ifTrue:	[^ self browseMethodFull].
  	aChar == $h ifTrue:	[^ self classHierarchy].
  	aChar == $c ifTrue: [^ self copyName].
  	aChar == $p ifTrue: [^ self browseFullProtocol].
  	aChar == $N ifTrue: [^ self browseClassRefs].
  	aChar == $t ifTrue: [^ self tearOffTile].
  	aChar == $v ifTrue: [^ self viewerForValue].
  
  	^ self arrowKey: aChar from: view!

Item was changed:
  ----- Method: Inspector>>mainFieldListMenu: (in category 'menu commands') -----
  mainFieldListMenu: aMenu
  	"Arm the supplied menu with items for the field-list of the receiver"
  	<fieldListMenu>
  	"gets overriden by subclasses, _whithout_ the <fieldListMenu>"
  	aMenu addStayUpItemSpecial.
  
  	aMenu addList: #(
  		('inspect (i)'						inspectSelection)
  		('explore (I)'						exploreSelection)).
  
  	self addCollectionItemsTo: aMenu.
  
  	aMenu addList: #(
  		-
  		('method refs to this inst var'		referencesToSelection)
  		('methods storing into this inst var'	defsOfSelection)
  		('objects pointing to this value'		objectReferencesToSelection)
  		('chase pointers'					chasePointers)
  		('explore pointers'				explorePointers)
  		-
+ 		('browse full (b)'					browseClass)
+ 		('browse hierarchy (h)'				classHierarchy)
- 		('browse full (b)'					browseMethodFull)
- 		('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)		
  		('basic inspect'						inspectBasic)).
  
  	Smalltalk isMorphic ifTrue:
  		[aMenu addList: #(
  			-
  			('tile for this value	(t)'			tearOffTile)
  			('viewer for this value (v)'		viewerForValue))].
  
  	^ aMenu
  
  
  "			-
  			('alias for this value'			aliasForValue)
  			('watcher for this slot'			watcherForSlot)"
  
  !