--- a/SimpleView.st	Thu Oct 17 16:46:34 2019 +0200
+++ b/SimpleView.st	Thu Oct 17 21:02:53 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -6764,6 +6762,18 @@
 "/    self changeScaleForMouseWheelZoom:amount
 !
 
+openDocumentation
+    "sent by the tooltip manager (FlyByHelp), when F1 is pressed"
+
+    superView notNil ifTrue:[
+        superView openDocumentation.
+        ^ self.
+    ].
+    self application notNil ifTrue:[
+        self application openDocumentation 
+    ].
+!
+
 pointerEnter:state x:x y:y
     "mouse pointer entered - request the keyboard focus (sometimes)"