--- a/DisplaySurface.st	Fri Oct 12 19:04:29 2018 +0200
+++ b/DisplaySurface.st	Fri Oct 12 19:06:23 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1992 by Claus Gittinger
               All Rights Reserved
@@ -1530,7 +1532,9 @@
 !
 
 dispatchEvent:type arguments:arguments
-    "dispatch an event"
+    <resource: #obsolete>
+    "dispatch an event.
+     Obsoleted - now we always pass around event objects."
 
     "/ XXXX: TO BE ELIMINATED
     ^ self
@@ -1564,10 +1568,12 @@
      isKeyEvent isButtonEvent isMouseWheelEvent isPointerEvent isExposeEvent
 
      rect x y w h delegatedEvent rgn
-
      eventForLastEventQuery|
 
-    type == #damage ifTrue:[
+     "/ should not happen:
+     ev isNil ifTrue:[thisContext fullPrintAll].
+     
+     type == #damage ifTrue:[
         "/ OLDdamage scheme - this will vanish
         self shown ifTrue:[
             rect := argArray.