--- a/TextRuler.st	Fri Nov 10 07:20:31 2006 +0100
+++ b/TextRuler.st	Mon Nov 13 17:11:31 2006 +0100
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+"{ Package: 'stx:libwidg2' }"
+
 Ruler subclass:#TextRuler
 	 instanceVariableNames:'leftMargin rightMargin spec moving settingTab'
 	 classVariableNames:'LeftAlignForm RightAlignForm AlignForm CenterForm LeftMarginForm
@@ -49,7 +51,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/TextRuler.st,v 1.14 1996-12-20 11:19:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/TextRuler.st,v 1.15 2006-11-13 16:11:31 cg Exp $'
 ! !
 
 !TextRuler class methodsFor:'defaults'!
@@ -171,13 +173,13 @@
 
     x := (self inchToPixel:leftMargin) rounded.
     form := self class leftMarginForm.
-    self displayForm:form 
+    self displayForm:form
 		   x:(x - (form width // 2) - orgX)
 		   y:(top - form height - orgY).
 
     x := (self inchToPixel:rightMargin) rounded.
     form := self class rightMarginForm.
-    self displayForm:form 
+    self displayForm:form
 		   x:(x - (form width // 2) - orgX)
 		   y:(top - form height - orgY).
 
@@ -204,7 +206,7 @@
 			]
 		    ]
 		].
-		self displayForm:form 
+		self displayForm:form
 			       x:(x - (form width // 2) - orgX)
 			       y:(top - form height - orgY)
 	    ]
@@ -234,7 +236,7 @@
 
     x := (self inchToPixel:this) rounded - (form width // 2).
     viewOrigin := self viewOrigin.
-    self displayForm:form 
+    self displayForm:form
 		   x:x + viewOrigin x
 		   y:(top - form height - viewOrigin y).
 
@@ -271,7 +273,7 @@
     ].
 
     viewOrigin := self viewOrigin.
-    self displayForm:form 
+    self displayForm:form
 		   x:(x - (form width // 2) - viewOrigin x)
 		   y:(top - form height - viewOrigin y).
 
@@ -441,8 +443,7 @@
 
 
     leftMargin := 0.0.
-    rightMargin := 8.5 
+    rightMargin := 8.5
 
     "TextRuler new open"
 ! !
-