--- a/Ruler.st	Fri May 31 19:23:26 1996 +0200
+++ b/Ruler.st	Fri May 31 20:08:14 1996 +0200
@@ -141,10 +141,12 @@
 paperWidthMM:millis
     "set the width of the document"
 
-    paperWidth := self millimeterToInch:millis.
+    paperWidth := UnitConverter millimeterToInch:millis.
     shown ifTrue:[
-	self redraw
+        self redraw
     ]
+
+    "Modified: 31.5.1996 / 19:39:32 / cg"
 !
 
 scale:aFactor
@@ -369,5 +371,5 @@
 !Ruler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/Ruler.st,v 1.24 1996-05-31 17:23:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/Ruler.st,v 1.25 1996-05-31 18:08:04 cg Exp $'
 ! !