47 TextRuler new open |
47 TextRuler new open |
48 " |
48 " |
49 ! |
49 ! |
50 |
50 |
51 version |
51 version |
52 ^ '$Header: /cvs/stx/stx/libwidg2/TextRuler.st,v 1.13 1995-11-11 16:29:32 cg Exp $' |
52 ^ '$Header: /cvs/stx/stx/libwidg2/TextRuler.st,v 1.14 1996-12-20 11:19:23 cg Exp $' |
53 ! ! |
53 ! ! |
54 |
54 |
55 !TextRuler class methodsFor:'defaults'! |
55 !TextRuler class methodsFor:'defaults'! |
56 |
56 |
57 rightMarginForm |
57 rightMarginForm |
58 "return the form displayed for the right margin marker" |
58 "return the form displayed for the right margin marker" |
59 |
59 |
60 RightMarginForm isNil ifTrue:[ |
60 RightMarginForm isNil ifTrue:[ |
61 RightMarginForm := Form fromFile:'rightMarg.xbm' resolution:100 |
61 RightMarginForm := Image fromFile:'bitmaps/rightMarg.xbm' resolution:100 |
62 ]. |
62 ]. |
63 ^ RightMarginForm |
63 ^ RightMarginForm |
64 ! |
64 ! |
65 |
65 |
66 leftMarginForm |
66 leftMarginForm |
67 "return the form displayed for the left margin marker" |
67 "return the form displayed for the left margin marker" |
68 |
68 |
69 LeftMarginForm isNil ifTrue:[ |
69 LeftMarginForm isNil ifTrue:[ |
70 LeftMarginForm := Form fromFile:'leftMargin.xbm' resolution:100 |
70 LeftMarginForm := Image fromFile:'bitmaps/leftMargin.xbm' resolution:100 |
71 ]. |
71 ]. |
72 ^ LeftMarginForm |
72 ^ LeftMarginForm |
73 ! |
73 ! |
74 |
74 |
75 rightAlignForm |
75 rightAlignForm |
76 "return the form displayed in the rightAlign-button" |
76 "return the form displayed in the rightAlign-button" |
77 |
77 |
78 RightAlignForm isNil ifTrue:[ |
78 RightAlignForm isNil ifTrue:[ |
79 RightAlignForm := Form fromFile:'rightAlign.xbm' resolution:100 |
79 RightAlignForm := Image fromFile:'bitmaps/rightAlign.xbm' resolution:100 |
80 ]. |
80 ]. |
81 ^ RightAlignForm |
81 ^ RightAlignForm |
82 ! |
82 ! |
83 |
83 |
84 leftTabForm |
84 leftTabForm |
85 "return the form displayed in the leftTab-button" |
85 "return the form displayed in the leftTab-button" |
86 |
86 |
87 LeftTabForm isNil ifTrue:[ |
87 LeftTabForm isNil ifTrue:[ |
88 LeftTabForm := Form fromFile:'leftTab.xbm' resolution:100 |
88 LeftTabForm := Image fromFile:'bitmaps/leftTab.xbm' resolution:100 |
89 ]. |
89 ]. |
90 ^ LeftTabForm |
90 ^ LeftTabForm |
91 ! |
91 ! |
92 |
92 |
93 centerForm |
93 centerForm |
94 "return the form displayed in the center-button" |
94 "return the form displayed in the center-button" |
95 |
95 |
96 CenterForm isNil ifTrue:[ |
96 CenterForm isNil ifTrue:[ |
97 CenterForm := Form fromFile:'center.xbm' resolution:100 |
97 CenterForm := Image fromFile:'bitmaps/center.xbm' resolution:100 |
98 ]. |
98 ]. |
99 ^ CenterForm |
99 ^ CenterForm |
100 ! |
100 ! |
101 |
101 |
102 alignForm |
102 alignForm |
103 "return the form displayed in the align-button" |
103 "return the form displayed in the align-button" |
104 |
104 |
105 AlignForm isNil ifTrue:[ |
105 AlignForm isNil ifTrue:[ |
106 AlignForm := Form fromFile:'align.xbm' resolution:100 |
106 AlignForm := Image fromFile:'bitmaps/align.xbm' resolution:100 |
107 ]. |
107 ]. |
108 ^ AlignForm |
108 ^ AlignForm |
109 ! |
109 ! |
110 |
110 |
111 rightTabForm |
111 rightTabForm |
112 "return the form displayed in the rightTab-button" |
112 "return the form displayed in the rightTab-button" |
113 |
113 |
114 RightTabForm isNil ifTrue:[ |
114 RightTabForm isNil ifTrue:[ |
115 RightTabForm := Form fromFile:'rightTab.xbm' resolution:100 |
115 RightTabForm := Image fromFile:'bitmaps/rightTab.xbm' resolution:100 |
116 ]. |
116 ]. |
117 ^ RightTabForm |
117 ^ RightTabForm |
118 ! |
118 ! |
119 |
119 |
120 leftAlignForm |
120 leftAlignForm |
121 "return the form displayed in the leftAlign-button" |
121 "return the form displayed in the leftAlign-button" |
122 |
122 |
123 LeftAlignForm isNil ifTrue:[ |
123 LeftAlignForm isNil ifTrue:[ |
124 LeftAlignForm := Form fromFile:'leftAlign.xbm' resolution:100 |
124 LeftAlignForm := Image fromFile:'bitmaps/leftAlign.xbm' resolution:100 |
125 ]. |
125 ]. |
126 ^ LeftAlignForm |
126 ^ LeftAlignForm |
127 ! |
127 ! |
128 |
128 |
129 decimalTabForm |
129 decimalTabForm |
130 "return the form displayed in the decimalTab-button" |
130 "return the form displayed in the decimalTab-button" |
131 |
131 |
132 DecimalTabForm isNil ifTrue:[ |
132 DecimalTabForm isNil ifTrue:[ |
133 DecimalTabForm := Form fromFile:'decimalTab.xbm' resolution:100 |
133 DecimalTabForm := Image fromFile:'bitmaps/decimalTab.xbm' resolution:100 |
134 ]. |
134 ]. |
135 ^ DecimalTabForm |
135 ^ DecimalTabForm |
136 ! |
136 ! |
137 |
137 |
138 centerTabForm |
138 centerTabForm |
139 "return the form displayed in the centerTab-button" |
139 "return the form displayed in the centerTab-button" |
140 |
140 |
141 CenterTabForm isNil ifTrue:[ |
141 CenterTabForm isNil ifTrue:[ |
142 CenterTabForm := Form fromFile:'centerTab.xbm' resolution:100 |
142 CenterTabForm := Image fromFile:'bitmaps/centerTab.xbm' resolution:100 |
143 ]. |
143 ]. |
144 ^ CenterTabForm |
144 ^ CenterTabForm |
145 ! ! |
145 ! ! |
146 |
146 |
147 !TextRuler methodsFor:'accessing'! |
147 !TextRuler methodsFor:'accessing'! |