Marcel Taeumel uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-mt.1187.mcz

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

Name: Tools-mt.1187
Author: mt
Time: 23 January 2023, 2:51:49.425818 pm
UUID: 0f97ea8d-eb7e-5d4e-ae90-89aabdf45e99
Ancestors: Tools-mt.1186

In debuggers, harmonize context-stack menu with debugger buttons.

=============== Diff against Tools-mt.1186 ===============

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>
+ 
+ 	Preferences restartAlsoProceeds
+ 		ifTrue: [
+ 			aMenu
+ 				addTranslatedList: #(	
+ 					('proceed top (p)' 				proceed) 
+ 					('proceed here (r)'				restart))]
+ 		ifFalse: [
+ 			aMenu
+ 				addTranslatedList: #(	
+ 					('proceed (p)' 				proceed) 
+ 					('restart (r)' 				restart))].
+ 
  	^ aMenu
+ 		addTranslatedList: #(	
+ 			-
+ 			('step into (e)' 					stepInto) 
+ 			('step over (t)' 					stepOver) 
+ 			('step through (T)'	 			stepIntoBlock) 
+ 			-
+ 			('show full stack (f)' 		showFullStack) 
+ 			('show where (w)' 			showWhere)
+ 			-
+ 			('tally it'					tally)
+ 			('peel to first like this' 		peelToFirst)  
+ 			('return entered value' 		returnValue) );
- 		addTranslatedList: #(
- 			('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) 
- 			- );
  		add: (self isBreakOnEntry ifTrue: ['<on>'] ifFalse: ['<off>']) , 'break on entry' translated
  			action: #toggleBreakOnEntry;
  		addTranslatedList: #(
+ 			-
  			('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) 
  			('remove method (x) ' 		removeMessage) 
  			- 
  			('copy bug report to clipboard'	copyBugReportToClipboard));
  		yourself!