--- a/SimpleView.st	Thu Jul 20 14:34:01 2017 +0200
+++ b/SimpleView.st	Thu Jul 20 14:36:24 2017 +0200
@@ -11018,20 +11018,24 @@
 scrollTo:newOrigin redraw:doRedraw
     "change origin to have newOrigin be visible at the top-left.
      The argument defines the integer device coordinates of the new top-left
-     point."
+     point.
+     If doRedraw is true, and any new areas are exposed, these are invalidated
+     (i.e. there may be pending redraw events in the event queue)."
 
     self
         scrollTo:newOrigin
         redraw:doRedraw
         allowScrollBeyondContents:false
 
-    "Modified: / 20-07-2017 / 14:22:29 / cg"
+    "Modified (comment): / 20-07-2017 / 14:36:06 / cg"
 !
 
 scrollTo:newOrigin redraw:doRedraw allowScrollBeyondContents:allowScrollBeyondContents
     "change origin to have newOrigin be visible at the top-left.
      The argument defines the integer device coordinates of the new top-left
-     point."
+     point.
+     If doRedraw is true, and any new areas are exposed, these are invalidated
+     (i.e. there may be pending redraw events in the event queue)."
 
     |dX   "{ Class:SmallInteger }"
      dY   "{ Class:SmallInteger }"
@@ -11153,14 +11157,18 @@
 
     self originChanged:(dX negated @ dY negated).
 
-    "Modified: / 5.8.1996 / 11:57:09 / stefan"
-    "Modified: / 1.12.1998 / 22:35:18 / cg"
+    "Modified: / 05-08-1996 / 11:57:09 / stefan"
+    "Modified: / 01-12-1998 / 22:35:18 / cg"
+    "Modified (comment): / 20-07-2017 / 14:36:14 / cg"
 !
 
 scrollTo:newOrigin waitForDrawingFinished:doWait
     "change origin to have newOrigin be visible at the top-left.
      The argument defines the integer device coordinates of the new top-left
-     point."
+     point.
+     If any new areas are exposed, invalidate them.
+     If doWait is true, wait until all draws are completed,
+     otherwise, possible redraws may still be in the event queue."
 
     |wg|