A new version of Tools was added to project The Inbox:
http://source.squeak.org/inbox/Tools-LM.808.mcz

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

Name: Tools-LM.808
Author: LM
Time: 28 April 2018, 4:16:15.825505 pm
UUID: 44402b15-5903-4ba6-87eb-544389e25886
Ancestors: Tools-cmm.807

Added the ability to copy a bug report to the clipboard by right clicking on the stack trace in the Debugger and selecting "bug report to clipboard".
This feature is added as an alternative to the "mail out bug report" feature, in the case that the bug report is not meant to be sent as an email, but rather distributed in a different way (for example via Github issues). It should make it easier for users to report bugs in detail and for developers to diagnose the issue.

=============== Diff against Tools-cmm.807 ===============

Item was added:
+ ----- Method: Debugger>>copyBugReportToClipboard (in category 'context stack menu') -----
+ copyBugReportToClipboard
+ 
+ 	| messageStream |
+ 	messageStream := WriteStream on: (String new: 1500).
+ 	self interruptedContext errorReportOn: messageStream.
+ 	Clipboard clipboardText: messageStream contents.!

Item was changed:
  ----- Method: Debugger>>mainContextStackMenu: (in category 'context stack menu') -----
  mainContextStackMenu: aMenu
  	"Set up the menu appropriately for the context-stack-list, unshifted"
  	<contextStackMenuShifted: false>
  	^ aMenu addList: #(
  			('fullStack (f)' 				fullStack) 
  			('restart (r)' 				restart) 
  			('proceed (p)' 				proceed) 
  			('step (t)' 					doStep) 
  			('step through (T)'	 		stepIntoBlock) 
  			('send (e)' 					send) 
  			('where (w)' 				where) 
  			('peel to first like this' 		peelToFirst) 
  			- 
  			('return entered value' 		returnValue) 
  			- 
  			('toggle break on entry'	toggleBreakOnEntry) 
  			('senders of    (n)' 			browseSendersOfMessages) 
  			('implementors of    (m)' 	browseMessages) 
  			('inheritance (i)' 			methodHierarchy) 
  			- 
  			('versions (v)' 				browseVersions) 
  			- 
  			('references    (r)' 			browseVariableReferences) 
  			('assignments    (a)' 		browseVariableAssignments) 
  			- 
  			('class refs (N)' 				browseClassRefs) 
  			('browse full (b)' 			browseMethodFull) 
  			('file out ' 			 		fileOutMessage) 
  			- 
+ 			('mail out bug report' 		mailOutBugReport)
+ 			('bug report to clipboard'	copyBugReportToClipboard));
- 			('mail out bug report' 		mailOutBugReport));
  		yourself
  !