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

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

Name: Tools-mt.1082
Author: mt
Time: 8 December 2021, 11:20:09.814213 am
UUID: 7d9a4dc7-ae01-464e-ac1b-82ef33247608
Ancestors: Tools-ct.1081

Change copy-html request to only consider the current text selection, which is now consistent with normal copy requests.

=============== Diff against Tools-ct.1081 ===============

Item was changed:
  ----- Method: StringHolder class>>yellowButtonMenuItems (in category '*Tools-yellow button menu') -----
  yellowButtonMenuItems
  	"Returns the standard yellow button menu items"
  	^{
  			#-.
  			{'set font... (k)' translated.				#offerFontMenu}.
  			{'set style... (K)' translated.				#changeStyle}.
  			{'set alignment... (u)' translated.		#chooseAlignment}.
  			#-.
  			{'make project link (P)' translated.	#makeProjectLink}.
  			#-.
  			{'find...(f)' translated.					#find}.
  			{'find again (g)' translated.				#findAgain}.
  			{'find and replace ...' translated.			#findReplace}.
  			{'do/replace again (j)' translated.				#again}.
  			#-.
  			{'undo (z)' translated.					#undo}.
  			{'redo (Z)' translated.					#redo}.
  			#-.
  			{'copy (c)' translated.					#copySelection}.
  			{'cut (x)' translated.						#cut}.
  			{'paste (v)' translated.					#paste}.
  			{'paste...' translated.					#pasteRecent}.
  			#-.
  			{'do it (d)' translated.		#doIt}.			     
  		{'debug it (D)' translated.			#debugIt}.		     
  		{'print it (p)' translated.		#printIt}.		     
  		{'inspect it (i)' translated.		#inspectIt}.		     
  		{'explore it (I)' translated.		#exploreIt}.		     
  		{'button for it' translated.			#buttonForIt}.		     
  		{'tally it' translated.			#tallyIt}.
  		{'spy on it' translated.		#spyOnIt}.
  			#-.
  			{'accept (s)' translated.					#accept}.
  			{'cancel (l)' translated.					#cancel}.
  			#-.
  			{'show bytecodes' translated.			#showBytecodes}.
  			#-.
+ 			{'copy as html' translated.					#copyHtmlSelection}.
- 			{'copy html' translated.					#copyHtml}.
  			#-.
  			{'more...' translated.					#shiftedTextPaneMenuRequest}.
  		}!