--- a/SimpleView.st	Wed Jul 19 17:14:10 2017 +0200
+++ b/SimpleView.st	Thu Jul 20 14:34:01 2017 +0200
@@ -11008,11 +11008,11 @@
     "change origin to have newOrigin be visible at the top-left.
      The argument defines the integer device coordinates of the new top-left
      point."
-
-     ^ self scrollTo:newOrigin redraw:true
-
-    "Modified: 15.7.1996 / 11:35:08 / stefan"
-    "Modified: 13.9.1996 / 14:09:19 / cg"
+    
+    self scrollTo:newOrigin redraw:true.
+
+    "Modified: / 15-07-1996 / 11:35:08 / stefan"
+    "Modified (format): / 20-07-2017 / 14:33:47 / cg"
 !
 
 scrollTo:newOrigin redraw:doRedraw
@@ -11020,10 +11020,12 @@
      The argument defines the integer device coordinates of the new top-left
      point."
 
-    ^ self
-	scrollTo:newOrigin
-	redraw:doRedraw
-	allowScrollBeyondContents:false
+    self
+        scrollTo:newOrigin
+        redraw:doRedraw
+        allowScrollBeyondContents:false
+
+    "Modified: / 20-07-2017 / 14:22:29 / cg"
 !
 
 scrollTo:newOrigin redraw:doRedraw allowScrollBeyondContents:allowScrollBeyondContents
@@ -11153,6 +11155,21 @@
 
     "Modified: / 5.8.1996 / 11:57:09 / stefan"
     "Modified: / 1.12.1998 / 22:35:18 / 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."
+
+    |wg|
+    
+    self scrollTo:newOrigin redraw:true.
+    (doWait and:[shown and:[ (wg := self windowGroup) notNil]]) ifTrue:[
+         wg processRealExposeEventsFor:self.
+    ].
+
+    "Created: / 20-07-2017 / 14:33:37 / cg"
 ! !
 
 !SimpleView methodsFor:'startup'!