--- a/Ruler.st	Mon Jun 03 18:15:22 1996 +0200
+++ b/Ruler.st	Tue Jun 04 22:22:04 1996 +0200
@@ -320,7 +320,9 @@
             pos := pos + 5.
             x := (pixelPerMM * pos) rounded 
         ].
-        self displayString:'cm ' x:marg+xOrigin y:charY.
+        showUnit ifTrue:[
+            self displayString:'cm ' x:marg+xOrigin y:charY.
+        ]
     ].
     (metric == #inch) ifTrue:[
         "inches - long blibs every inch; short ones every half; very
@@ -361,15 +363,17 @@
             pos := pos + 0.25.
             x := (pixelPerInch * pos) rounded
         ].
-        self displayString:'inch ' x:marg+xOrigin y:charY.
+        showUnit ifTrue:[
+            self displayString:'inch ' x:marg+xOrigin y:charY.
+        ]
     ].
     self redrawEdges
 
-    "Modified: 31.5.1996 / 18:06:55 / cg"
+    "Modified: 4.6.1996 / 22:21:19 / cg"
 ! !
 
 !Ruler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/Ruler.st,v 1.25 1996-05-31 18:08:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/Ruler.st,v 1.26 1996-06-04 20:22:04 cg Exp $'
 ! !