--- a/VerticalRuler.st	Fri May 31 19:23:26 1996 +0200
+++ b/VerticalRuler.st	Fri May 31 20:08:14 1996 +0200
@@ -54,10 +54,12 @@
 paperHeightMM:millis
     "set the width of the document"
 
-    paperHeight := self millimeterToInch:millis.
+    paperHeight := UnitConverter millimeterToInch:millis.
     shown ifTrue:[
-	self redraw
+        self redraw
     ]
+
+    "Modified: 31.5.1996 / 19:39:46 / cg"
 ! !
 
 !VerticalRuler methodsFor:'initialization'!
@@ -192,5 +194,5 @@
 !VerticalRuler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/VerticalRuler.st,v 1.8 1996-05-31 17:23:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/VerticalRuler.st,v 1.9 1996-05-31 18:08:14 cg Exp $'
 ! !