--- a/StandardSystemView.st Thu Oct 17 22:05:43 2019 +0200
+++ b/StandardSystemView.st Thu Oct 17 22:07:31 2019 +0200
@@ -1093,6 +1093,22 @@
"Modified: 25.2.1997 / 23:19:46 / cg"
!
+keyPress:key x:x y:y
+ "notice: this ought to be moved into the upcoming
+ StandardSystemViewController."
+
+ key == #Help ifTrue:[
+ Error handle:[:ex |
+ ] do:[
+ self application notNil ifTrue:[
+ self application openDocumentation.
+ ^ self.
+ ].
+ ].
+ ].
+ super keyPress:key x:x y:y.
+!
+
processShortcut:aKeyEvent
"a shortcut key event as forwarded from the keyboardProcessor - if there is the
shortcut key defined, process the shortcut and return true - otherwise false."