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!