--- a/SimpleView.st	Thu Jan 30 04:27:33 2020 +0000
+++ b/SimpleView.st	Thu Jan 30 10:03:03 2020 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -1707,6 +1705,15 @@
 
 !SimpleView methodsFor:'accessing'!
 
+actionAt:aPoint
+    "if aPoint is over a clickable (anchor-) link, return its action.
+     Otherwise, return nil.
+     The action will be something responding to #value;
+     i.e. a block or Explainer::ActionWithInfo or similar"
+
+    ^ nil
+!
+
 client:anApplicationModel
     "release existing components and generate new components from
      the applications windowSpec.