#UI_ENHANCEMENT by exept
authorClaus Gittinger <cg@exept.de>
Thu, 17 Oct 2019 22:07:31 +0200
changeset 8842 f6f0b74a8b7c
parent 8841 6f27889d77f7
child 8843 6a876fd40a2e
#UI_ENHANCEMENT by exept class: StandardSystemView added: #keyPress:x:y:
StandardSystemView.st
--- 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."