[Pkg] The Trunk: Tools-cbc.766.mcz

[commits at source.squeak.org]

David T. Lewis uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-cbc.766.mcz

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

Name: Tools-cbc.766
Author: cbc
Time: 15 September 2017, 1:32:51.722459 pm
UUID: 7fd4bc5e-35b0-954e-91f3-a1cd65adee00
Ancestors: Tools-eem.765

For Explorers, add a menu item 'Copy value' (similar to Copy name) that copies the value of the selected item, suitable for use elsewhere.

=============== Diff against Tools-eem.765 ===============

Item was added:
+ ----- Method: ObjectExplorer>>copyValue (in category 'menus - actions') -----
+ copyValue
+ 	"Copy the name of the current variable, so the user can paste it into the window below and work with is."
+ 	
+ 	Clipboard clipboardText: self currentSelection value.	!

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)
  		-
  		('browse full (b)'					browseFull)
  		('browse class'						browseClass)
  		('browse hierarchy (h)'					classHierarchy)
  		('browse protocol (p)'				browseFullProtocol)
  		-
  		('references... (r)'					browseVariableReferences)
  		('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!