--- 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
! !