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

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

Name: Morphic-mt.1951
Author: mt
Time: 29 March 2022, 9:46:58.953038 am
UUID: 799067bf-bf2a-9949-8b3b-4dae2438ea43
Ancestors: Morphic-mt.1950

Inform the user on how to send feedback via a "Send Feedback..." item in the Squeak menu and the Help menu.

Feel free to discuss and adjust the dialog text.

=============== Diff against Morphic-mt.1950 ===============

Item was changed:
  ----- Method: TheWorldMainDockingBar>>aboutMenuItemOn: (in category 'submenu - squeak') -----
  aboutMenuItemOn: menu
  
  	menu addItem: [ :item |
  		item
  			contents: 'About Squeak...' translated;
+ 			help: 'SystemReporter status of the image and runtime environment' translated;
  			target: self;
  			selector: #aboutSqueak ]!

Item was added:
+ ----- Method: TheWorldMainDockingBar>>feedbackMenuItemOn: (in category 'submenu - squeak') -----
+ feedbackMenuItemOn: menu
+ 
+ 	menu addItem: [ :item |
+ 		item
+ 			contents: 'Send Feedback...' translated;
+ 			help: 'Report bugs, requests, and other issues' translated;
+ 			target: self;
+ 			selector: #sendFeedback ]!

Item was changed:
  ----- Method: TheWorldMainDockingBar>>helpMenuOn: (in category 'submenu - help') -----
  helpMenuOn: aDockingBar
  
  	aDockingBar addItem: [ :it |
  		it	contents: 'Help' translated;
  			addSubMenu: [ :menu | 
  				menu addItem: [:item |
  						item
  							contents: 'Squeak Help' translated;
  							help: 'Integrated Help System' translated;
  							target: self;
  							selector: #squeakHelp].
+ 				self feedbackMenuItemOn: menu.
  				
  				menu addLine.
  				
  				menu addItem:[:item|
  					item
  						contents: 'Online Resources' translated;
  						help: 'Online resources for Squeak' translated;
  						target: self;
  						icon: MenuIcons smallHelpIcon;
  						selector: #squeakOnlineResources].
  				menu addItem:[:item|
  					item
  						contents: 'Squeak Swiki' translated;
  						help: 'A very simple way to access Squeak Swiki resources in the image' translated;
  						target: self;
  						selector: #swiki].
  				menu addItem:[:item|
  					item
  						contents: 'Keyboard Shortcuts' translated;
  						help: 'Keyboard bindings used in Squeak' translated;
  						target: self;
  						selector: #commandKeyHelp ].
  				menu addItem:[:item|
  					item
  						contents: 'Font Size Summary' translated;
  						help: 'Font size summary.' translated;
  						target: self;
  						selector: #fontSizeSummary ].
  				menu addItem:[:item|
  					item
  						contents: 'Useful Expressions' translated;
  						help: 'Useful expressions' translated;
  						target: self;
  						selector: #usefulExpressions ].
  				menu addLine.
  				menu addItem:[:item|
  					item
  						contents: 'Terse Guide to Squeak' translated;
  						help: 'Concise information about language and environment' translated;
  						target: self;
  						selector: #terseGuideToSqueak].
  				menu addItem:[:item|
  					item
  						contents: 'Extending the system' translated;
  						help: 'Includes code snippets to evaluate for extending the system' translated;
  						target: self;
  						icon: MenuIcons smallHelpIcon;
  						selector: #extendingTheSystem].
  				menu addLine.
  				
  			menu addItem:[:item|
  				item
  					contents: 'Release Notes' translated;
  					help: 'Changes in this release' translated ;
  					target: self;
  					selector: #releaseNotes].
  			menu addItem:[:item|
  				item
  					contents: 'Working With Squeak' translated;
  					help: 'Information for new users' ;
  					target: self;
  					selector: #workingWithSqueak].
  			menu addItem:[:item|
  				item
  					contents: 'The Squeak User Interface' translated;
  					help: 'Descriptions of some of the more-unusual UI elements in Squeak' ;
  					target: self;
  					selector: #squeakUserInterface].
  			menu addItem:[:item|
  				item
  					contents: 'License Information' translated;
  					help: String empty ;
  					target: self;
  					selector: #licenseInformation].				
  				
  		
  			menu addLine.
+ 			self aboutMenuItemOn: menu.
- 			menu addItem: [:item |
- 				item
- 					contents: 'About Squeak' translated;
- 					help: 'SystemReporter status of the image and runtime environment' translated;
- 					target: self;
- 					selector: #aboutSqueak].
  		]]!

Item was added:
+ ----- Method: TheWorldMainDockingBar>>sendFeedback (in category 'menu actions') -----
+ sendFeedback
+ 
+ 	| url os vm hash image |
+ 	url := 'https://github.com/squeak-smalltalk/squeak-object-memory/issues'.
+ 	([Smalltalk vm platformSourceVersion] on: Warning do: ["Ignore"])
+ 		ifNotNil: [:info | | tokens |
+ 			tokens := info findTokens.
+ 			vm := tokens at: 2.
+ 			hash := tokens atLast: 4].
+ 	os := Smalltalk os platformName, ' ', Smalltalk os osVersion, ' ', Smalltalk os platformSubtype.
+ 	image := SystemVersion current version, ' #', SystemVersion current highestUpdate.
+ 
+ 	self inform: ('Please visit the following website to report on bugs, requests, and other issues:<br><br>	<a href="{1}">{1}</a><br><br>Make sure that you always include information about your current environment such as:<br><br>	OS: {2}<br>	VM: {3} ({4})<br>	SQ: {5} ({6} bit)<br><br>You can find more in the <a href="code://SystemReporter open">System Reporter</a>.' translated format: {url. os. vm. hash. image. Smalltalk image wordSize * 8}) asTextFromHtml!

Item was changed:
  ----- Method: TheWorldMainDockingBar>>squeakMenuOn: (in category 'construction') -----
  squeakMenuOn: aDockingBar 
  	"Private - fill the given docking bar"
  	
  	aDockingBar addItem: [ :item |
  		item
  			contents: '';
  			icon: (MenuIcons squeakLogoIcon dyed:
  				(self userInterfaceTheme logoColor ifNil: [Color black]));
  			selectedIcon: (MenuIcons squeakLogoIcon dyed:
  				(self userInterfaceTheme selectionLogoColor ifNil: [Color white]));
  			addSubMenu: [ :menu | 
  				self
  					aboutMenuItemOn: menu;
  					updateMenuItemOn: menu.
  				menu addLine.
+ 				self feedbackMenuItemOn: menu.
+ 				menu addLine.
  				self 
  					saveMenuItemOn: menu;
  					saveAsMenuItemOn: menu;
  					saveAsNewVersionMenuItemOn: menu.
  				menu addLine.
  				self
  					saveAndQuitMenuItemOn: menu;
  					quitMenuItemOn: menu ] ]!