# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 833919724 -7200
# Node ID 60f6213aca007cf3dda50c018345be60e97cdfc8
# Parent  00cb7ea2b5a775be43460bbd3168057385fb65bc
checkin from browser

diff -r 00cb7ea2b5a7 -r 60f6213aca00 Ruler.st
--- 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 $'
 ! !