--- a/Ruler.st	Wed May 29 12:23:25 1996 +0200
+++ b/Ruler.st	Wed May 29 16:44:13 1996 +0200
@@ -122,11 +122,11 @@
     "set the metric. The argument may be either #inch or #mm"
 
     aSymbol ~~ metric ifTrue:[
-	metric := aSymbol.
-	shown ifTrue:[
-	    self redraw
-	]
+        metric := aSymbol.
+        self invalidate
     ]
+
+    "Modified: 29.5.1996 / 16:42:46 / cg"
 !
 
 paperWidthInch:inches
@@ -151,11 +151,11 @@
     "set the scale factor. 1 is identity."
 
     aFactor ~= scale ifTrue:[
-	scale := aFactor.
-	shown ifTrue:[
-	    self redraw
-	]
+        scale := aFactor.
+        self invalidate
     ]
+
+    "Modified: 29.5.1996 / 16:42:56 / cg"
 !
 
 showUnit:aBoolean
@@ -168,7 +168,9 @@
 viewOrigin:origin
     origin = self viewOrigin ifTrue:[^ self].
     super setViewOrigin:origin.
-    self redraw
+    self invalidate
+
+    "Modified: 29.5.1996 / 16:43:03 / cg"
 !
 
 widthOfContents
@@ -415,5 +417,5 @@
 !Ruler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/Ruler.st,v 1.22 1996-04-27 18:22:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/Ruler.st,v 1.23 1996-05-29 14:44:13 cg Exp $'
 ! !