--- a/VerticalRuler.st	Sat Apr 27 20:20:27 1996 +0200
+++ b/VerticalRuler.st	Sat Apr 27 20:23:13 1996 +0200
@@ -11,10 +11,10 @@
 "
 
 Ruler subclass:#VerticalRuler
-	 instanceVariableNames:''
-	 classVariableNames:''
-	 poolDictionaries:''
-	 category:'Views-Misc'
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Views-Misc'
 !
 
 !VerticalRuler class methodsFor:'documentation'!
@@ -33,10 +33,6 @@
 "
 !
 
-version
-    ^ '$Header: /cvs/stx/stx/libwidg2/VerticalRuler.st,v 1.6 1995-11-11 16:29:35 cg Exp $'
-!
-
 documentation
 "
     like a Ruler, but vertical.
@@ -64,6 +60,18 @@
     ]
 ! !
 
+!VerticalRuler methodsFor:'initialization'!
+
+initialize
+    super initialize.
+
+    self width:(font widthOf:'inch').
+
+    "
+     VerticalRuler new open
+    "
+! !
+
 !VerticalRuler methodsFor:'redrawing'!
 
 redraw
@@ -179,15 +187,8 @@
     self redrawEdges
 ! !
 
-!VerticalRuler methodsFor:'initialization'!
-
-initialize
-    super initialize.
+!VerticalRuler class methodsFor:'documentation'!
 
-    self width:(font widthOf:'inch').
-
-    "
-     VerticalRuler new open
-    "
+version
+    ^ '$Header: /cvs/stx/stx/libwidg2/VerticalRuler.st,v 1.7 1996-04-27 18:22:04 cg Exp $'
 ! !
-