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 ] ]!
packages@lists.squeakfoundation.org