--- a/SimpleView.st	Fri Aug 17 17:46:55 2018 +0200
+++ b/SimpleView.st	Mon Aug 20 08:14:08 2018 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -11116,6 +11114,50 @@
     "Modified: / 21.5.1999 / 15:58:08 / cg"
 !
 
+scrollTo:newOrigin
+    "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-07-1996 / 11:35:08 / stefan"
+    "Modified (format): / 20-07-2017 / 14:33:47 / cg"
+!
+
+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.
+     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 (comment): / 20-07-2017 / 14:36:06 / 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.
+     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|
+    
+    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"
+!
+
 scrollToBottom
     self scrollTo:0 @ (self heightOfContents - self innerHeight)
 
@@ -11237,32 +11279,6 @@
 
 !SimpleView methodsFor:'scrolling-basic'!
 
-scrollTo:newOrigin
-    "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-07-1996 / 11:35:08 / stefan"
-    "Modified (format): / 20-07-2017 / 14:33:47 / cg"
-!
-
-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.
-     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 (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
@@ -11393,24 +11409,6 @@
     "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.
-     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|
-    
-    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'!