--- a/ApplicationModel.st	Fri Nov 01 12:32:05 2019 +0100
+++ b/ApplicationModel.st	Fri Nov 01 12:32:29 2019 +0100
@@ -2753,6 +2753,12 @@
     ^ false
 !
 
+helpKeyPressed
+    "called by <F1>"
+
+    self openDocumentation
+!
+
 openAboutThisApplication
     "opens an about box for this application.
      Can be specialized by redefining #aboutThisApplicationText