--- a/TextRuler.st	Thu Jan 13 01:16:34 1994 +0100
+++ b/TextRuler.st	Thu Jan 13 01:18:36 1994 +0100
@@ -27,7 +27,7 @@
 
 a Ruler for page layout showing tabs., margins etc.
 
-$Header: /cvs/stx/stx/libwidg2/TextRuler.st,v 1.4 1994-01-08 17:29:58 claus Exp $
+$Header: /cvs/stx/stx/libwidg2/TextRuler.st,v 1.5 1994-01-13 00:18:36 claus Exp $
 written oct 91 by claus
 '!
 
@@ -311,7 +311,7 @@
         form := self class rightMarginForm
     ].
 
-    self drawOpaqueForm:form x:(x - (form width // 2))
+    self displayOpaqueForm:form x:(x - (form width // 2))
 !
 
 drawMargin:which
@@ -333,7 +333,7 @@
         form := self class rightMarginForm
     ].
 
-    self drawOpaqueForm:form x:(x - (form width // 2))
+    self displayOpaqueForm:form x:(x - (form width // 2))
 !
 
 redraw
@@ -350,11 +350,11 @@
 
     x := (self inchToPixel:leftMargin) rounded.
     form := self class leftMarginForm.
-    self drawOpaqueForm:form x:(x - (form width // 2))
+    self displayOpaqueForm:form x:(x - (form width // 2))
                              y:(top - form height).
     x := (self inchToPixel:rightMargin) rounded.
     form := self class rightMarginForm.
-    self drawOpaqueForm:form x:(x - (form width // 2))
+    self displayOpaqueForm:form x:(x - (form width // 2))
                              y:(top - form height).
 
     tabStops notNil ifTrue:[
@@ -377,8 +377,8 @@
                     ]
                 ]
             ].
-            self drawOpaqueForm:form x:(x - (form width // 2))
-                                     y:(top - form height)
+            self displayOpaqueForm:form x:(x - (form width // 2))
+                                        y:(top - form height)
         ]
     ]
 ! !