[Pkg] The Trunk: Morphic-mt.1951.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue Mar 29 07:47:03 UTC 2022
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 ] ]!
More information about the Packages
mailing list