--- a/MiniScroller.st	Thu Nov 23 18:48:50 1995 +0100
+++ b/MiniScroller.st	Thu Nov 23 19:19:24 1995 +0100
@@ -33,28 +33,12 @@
 "
 !
 
-version
-    ^ '$Header: /cvs/stx/stx/libwidg/MiniScroller.st,v 1.5 1995-11-11 16:21:38 cg Exp $'
-!
-
 documentation
 "
     like a scroller, but taking less screen space
 "
 ! !
 
-!MiniScroller methodsFor:'queries'!
-preferredExtent
-    "make my width very small"
-
-    |w h mm|
-
-    h := self class defaultExtent y.
-    mm := (thumbLevel ~~ 0) ifTrue:[2.5] ifFalse:[2.0].
-    w := (device horizontalPixelPerMillimeter asFloat * mm) rounded.
-    ^ w @ h.
-! !
-
 !MiniScroller methodsFor:'initialization'!
 
 initStyle
@@ -80,3 +64,22 @@
     shadowForm := lightForm := nil.
     fixThumbHeight := false
 ! !
+
+!MiniScroller methodsFor:'queries'!
+
+preferredExtent
+    "make my width very small"
+
+    |w h mm|
+
+    h := self class defaultExtent y.
+    mm := (thumbLevel ~~ 0) ifTrue:[2.5] ifFalse:[2.0].
+    w := (device horizontalPixelPerMillimeter asFloat * mm) rounded.
+    ^ w @ h.
+! !
+
+!MiniScroller class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libwidg/MiniScroller.st,v 1.6 1995-11-23 18:18:30 cg Exp $'
+! !