TextRuler.st
changeset 11 793044d4bc90
parent 10 27ca304c4625
child 20 bf516dd2433b
--- a/TextRuler.st	Thu Jan 13 01:18:36 1994 +0100
+++ b/TextRuler.st	Fri Aug 05 03:24:10 1994 +0200
@@ -21,13 +21,12 @@
 !
 
 TextRuler comment:'
-
 COPYRIGHT (c) 1991 by Claus Gittinger
               All Rights Reserved
 
 a Ruler for page layout showing tabs., margins etc.
 
-$Header: /cvs/stx/stx/libwidg2/TextRuler.st,v 1.5 1994-01-13 00:18:36 claus Exp $
+$Header: /cvs/stx/stx/libwidg2/TextRuler.st,v 1.6 1994-08-05 01:24:10 claus Exp $
 written oct 91 by claus
 '!
 
@@ -37,7 +36,7 @@
     "return the form displayed in the align-button"
 
     AlignForm isNil ifTrue:[
-        AlignForm := Form fromFile:'align.bit' resolution:100
+        AlignForm := Form fromFile:'align.xbm' resolution:100
     ].
     ^ AlignForm
 !
@@ -46,7 +45,7 @@
     "return the form displayed in the center-button"
 
     CenterForm isNil ifTrue:[
-        CenterForm := Form fromFile:'center.bit' resolution:100
+        CenterForm := Form fromFile:'center.xbm' resolution:100
     ].
     ^ CenterForm
 !
@@ -55,7 +54,7 @@
     "return the form displayed in the leftAlign-button"
 
     LeftAlignForm isNil ifTrue:[
-        LeftAlignForm := Form fromFile:'leftAlign.bit' resolution:100
+        LeftAlignForm := Form fromFile:'leftAlign.xbm' resolution:100
     ].
     ^ LeftAlignForm
 !
@@ -64,7 +63,7 @@
     "return the form displayed in the rightAlign-button"
 
     RightAlignForm isNil ifTrue:[
-        RightAlignForm :=  Form fromFile:'rightAlign.bit' resolution:100
+        RightAlignForm :=  Form fromFile:'rightAlign.xbm' resolution:100
     ].
     ^ RightAlignForm
 !
@@ -73,7 +72,7 @@
     "return the form displayed in the rightTab-button"
 
     RightTabForm isNil ifTrue:[
-        RightTabForm := Form fromFile:'rightTab.bit' resolution:100
+        RightTabForm := Form fromFile:'rightTab.xbm' resolution:100
     ].
     ^ RightTabForm
 !
@@ -82,7 +81,7 @@
     "return the form displayed in the leftTab-button"
 
     LeftTabForm isNil ifTrue:[
-        LeftTabForm := Form fromFile:'leftTab.bit' resolution:100
+        LeftTabForm := Form fromFile:'leftTab.xbm' resolution:100
     ].
     ^ LeftTabForm
 !
@@ -91,7 +90,7 @@
     "return the form displayed in the centerTab-button"
 
     CenterTabForm isNil ifTrue:[
-        CenterTabForm := Form fromFile:'centerTab.bit' resolution:100
+        CenterTabForm := Form fromFile:'centerTab.xbm' resolution:100
     ].
     ^ CenterTabForm
 !
@@ -101,7 +100,7 @@
     "return the form displayed in the decimalTab-button"
 
     DecimalTabForm isNil ifTrue:[
-        DecimalTabForm := Form fromFile:'decimalTab.bit' resolution:100
+        DecimalTabForm := Form fromFile:'decimalTab.xbm' resolution:100
     ].
     ^ DecimalTabForm
 !
@@ -110,7 +109,7 @@
     "return the form displayed for the left margin marker"
 
     LeftMarginForm isNil ifTrue:[
-        LeftMarginForm := Form fromFile:'leftMargin.bit' resolution:100
+        LeftMarginForm := Form fromFile:'leftMargin.xbm' resolution:100
     ].
     ^ LeftMarginForm
 !
@@ -119,7 +118,7 @@
     "return the form displayed for the right margin marker"
 
     RightMarginForm isNil ifTrue:[
-        RightMarginForm := Form fromFile:'rightMarg.bit' resolution:100
+        RightMarginForm := Form fromFile:'rightMarg.xbm' resolution:100
     ].
     ^ RightMarginForm
 ! !