57 !UpDownButton class methodsFor:'defaults'! |
59 !UpDownButton class methodsFor:'defaults'! |
58 |
60 |
59 downButtonForm |
61 downButtonForm |
60 "return the down-buttons image" |
62 "return the down-buttons image" |
61 |
63 |
62 <resource: #style (#upDownButtonDownForm #upDownButtonDownFormFile)> |
64 <resource: #style (#upDownButton.downForm #upDownButton.downFormFile)> |
63 |
65 |
64 |fileName form| |
66 |fileName form| |
65 |
67 |
66 form := StyleSheet at:'upDownButtonDownForm' default:nil. |
68 DefaultDownForm notNil ifTrue:[ |
67 form isNil ifTrue:[ |
69 ^ DefaultDownForm |
68 fileName := StyleSheet at:'upDownButtonDownFormFile' default:'ComboDnB_win.xbm'. |
70 ]. |
|
71 |
|
72 form := StyleSheet at:'upDownButton.downForm' default:nil. |
|
73 form isNil ifTrue:[ |
|
74 fileName := StyleSheet at:'upDownButton.downFormFile' default:'ComboDnB_win.xbm'. |
69 form := Image fromFile:fileName. |
75 form := Image fromFile:fileName. |
70 ]. |
76 ]. |
71 form isNil ifTrue:[ |
77 form isNil ifTrue:[ |
72 form := Form width:16 height:7 |
78 form := Form width:10 height:6 |
73 fromArray:#[ |
79 fromArray:#[ |
74 2r00000000 2r00000000 |
80 2r00000000 2r00000000 |
75 2r00111111 2r11111100 |
81 2r01111111 2r10000000 |
76 2r00011111 2r11111000 |
82 2r00111111 2r00000000 |
77 2r00001111 2r11110000 |
83 2r00011110 2r00000000 |
78 2r00000111 2r11100000 |
84 2r00001100 2r00000000 |
79 2r00000011 2r11000000 |
85 2r00000000 2r00000000 |
80 2r00000001 2r10000000 |
|
81 ] |
86 ] |
82 on:Display. |
87 on:Display. |
83 ]. |
88 ]. |
84 form notNil ifTrue:[ |
89 form notNil ifTrue:[ |
|
90 DefaultDownForm := form. |
85 ^ form on:Display |
91 ^ form on:Display |
86 ]. |
92 ]. |
87 ^ nil |
93 ^ nil |
88 |
94 |
89 "Created: 1.4.1997 / 11:53:39 / cg" |
95 "Created: / 1.4.1997 / 11:53:39 / cg" |
90 "Modified: 1.4.1997 / 11:54:17 / cg" |
96 "Modified: / 25.10.1997 / 14:24:20 / cg" |
91 ! |
97 ! |
92 |
98 |
93 leftButtonForm |
99 leftButtonForm |
94 "return the left-buttons image" |
100 "return the left-buttons image" |
95 |
101 |
96 <resource: #style (#upDownButtonLeftForm #upDownButtonLeftFormFile)> |
102 <resource: #style (#upDownButton.leftForm #upDownButton.leftFormFile)> |
97 |
103 |
98 |fileName form| |
104 |fileName form| |
99 |
105 |
100 form := StyleSheet at:'upDownButtonLeftForm' default:nil. |
106 DefaultLeftForm notNil ifTrue:[ |
101 form isNil ifTrue:[ |
107 ^ DefaultLeftForm |
102 fileName := StyleSheet at:'upDownButtonLeftFormFile' default:'ComboLtB_win.xbm'. |
108 ]. |
|
109 |
|
110 form := StyleSheet at:'upDownButton.leftForm' default:nil. |
|
111 form isNil ifTrue:[ |
|
112 fileName := StyleSheet at:'upDownButton.leftFormFile' default:'ComboLtB_win.xbm'. |
103 form := Image fromFile:fileName. |
113 form := Image fromFile:fileName. |
104 ]. |
114 ]. |
105 form isNil ifTrue:[ |
115 form isNil ifTrue:[ |
106 form := Form width:7 height:16 |
116 form := Form width:6 height:10 |
107 fromArray:#[ |
117 fromArray:#[ |
108 2r00000000 |
118 2r00000000 |
109 2r00000000 |
119 2r00001000 |
110 2r00000100 |
120 2r00011000 |
111 2r00001100 |
121 2r00111000 |
112 2r00011100 |
122 2r01111000 |
113 2r00111100 |
123 2r01111000 |
114 2r01111100 |
124 2r00111000 |
115 2r11111100 |
125 2r00011000 |
116 2r11111100 |
126 2r00001000 |
117 2r01111100 |
|
118 2r00111100 |
|
119 2r00011100 |
|
120 2r00001100 |
|
121 2r00000100 |
|
122 2r00000000 |
|
123 2r00000000 |
127 2r00000000 |
124 ] |
128 ] |
125 on:Display. |
129 on:Display. |
126 ]. |
130 ]. |
127 form notNil ifTrue:[ |
131 form notNil ifTrue:[ |
|
132 DefaultLeftForm := form. |
128 ^ form on:Display |
133 ^ form on:Display |
129 ]. |
134 ]. |
130 ^ nil |
135 ^ nil |
131 |
136 |
132 "Created: 1.4.1997 / 12:39:18 / cg" |
137 "Created: / 1.4.1997 / 12:39:18 / cg" |
133 "Modified: 1.4.1997 / 12:45:58 / cg" |
138 "Modified: / 25.10.1997 / 14:21:45 / cg" |
134 ! |
139 ! |
135 |
140 |
136 rightButtonForm |
141 rightButtonForm |
137 "return the left-buttons image" |
142 "return the left-buttons image" |
138 |
143 |
139 <resource: #style (#upDownButtonRightForm #upDownButtonRightFormFile)> |
144 <resource: #style (#upDownButton.rightForm #upDownButton.rightFormFile)> |
140 |
145 |
141 |fileName form| |
146 |fileName form| |
142 |
147 |
143 form := StyleSheet at:'upDownButtonRightForm' default:nil. |
148 DefaultRightForm notNil ifTrue:[ |
144 form isNil ifTrue:[ |
149 ^ DefaultRightForm |
145 fileName := StyleSheet at:'upDownButtonRightFormFile' default:'ComboRtB_win.xbm'. |
150 ]. |
|
151 |
|
152 form := StyleSheet at:'upDownButton.rightForm' default:nil. |
|
153 form isNil ifTrue:[ |
|
154 fileName := StyleSheet at:'upDownButton.rightFormFile' default:'ComboRtB_win.xbm'. |
146 form := Image fromFile:fileName. |
155 form := Image fromFile:fileName. |
147 ]. |
156 ]. |
148 form isNil ifTrue:[ |
157 form isNil ifTrue:[ |
149 form := Form width:7 height:16 |
158 form := Form width:6 height:10 |
150 fromArray:#[ |
159 fromArray:#[ |
151 2r00000000 |
|
152 2r00000000 |
160 2r00000000 |
153 2r01000000 |
161 2r01000000 |
154 2r01100000 |
162 2r01100000 |
155 2r01110000 |
163 2r01110000 |
156 2r01111000 |
164 2r01111000 |
157 2r01111100 |
|
158 2r01111110 |
|
159 2r01111110 |
|
160 2r01111100 |
|
161 2r01111000 |
165 2r01111000 |
162 2r01110000 |
166 2r01110000 |
163 2r01100000 |
167 2r01100000 |
164 2r01000000 |
168 2r01000000 |
165 2r00000000 |
169 2r00000000 |
166 2r00000000 |
|
167 ] |
170 ] |
168 on:Display. |
171 on:Display. |
169 ]. |
172 ]. |
170 form notNil ifTrue:[ |
173 form notNil ifTrue:[ |
|
174 DefaultRightForm := form. |
171 ^ form on:Display |
175 ^ form on:Display |
172 ]. |
176 ]. |
173 ^ nil |
177 ^ nil |
174 |
178 |
175 "Modified: 1.4.1997 / 11:54:17 / cg" |
179 "Created: / 1.4.1997 / 12:39:34 / cg" |
176 "Created: 1.4.1997 / 12:39:34 / cg" |
180 "Modified: / 25.10.1997 / 14:23:04 / cg" |
177 ! |
181 ! |
178 |
182 |
179 upButtonForm |
183 upButtonForm |
180 "return the up-buttons image" |
184 "return the up-buttons image" |
181 |
185 |
182 <resource: #style (#upDownButtonUpForm #upDownButtonUpFormFile)> |
186 <resource: #style (#upDownButton.upForm #upDownButton.upFormFile)> |
183 |
187 |
184 |fileName form| |
188 |fileName form| |
185 |
189 |
186 form := StyleSheet at:'upDownButtonUpForm' default:nil. |
190 DefaultUpForm notNil ifTrue:[ |
187 form isNil ifTrue:[ |
191 ^ DefaultUpForm |
188 fileName := StyleSheet at:'upDownButtonUpFormFile' default:'ComboUpB_win.xbm'. |
192 ]. |
|
193 |
|
194 form := StyleSheet at:'upDownButton.upForm' default:nil. |
|
195 form isNil ifTrue:[ |
|
196 fileName := StyleSheet at:'upDownButton.upFormFile' default:'ComboUpB_win.xbm'. |
189 form := Image fromFile:fileName. |
197 form := Image fromFile:fileName. |
190 ]. |
198 ]. |
191 form isNil ifTrue:[ |
199 form isNil ifTrue:[ |
192 form := Form width:16 height:7 |
200 form := Form width:10 height:6 |
193 fromArray:#[ |
201 fromArray:#[ |
194 2r00000001 2r10000000 |
202 2r00000000 2r00000000 |
195 2r00000011 2r11000000 |
203 2r00001100 2r00000000 |
196 2r00000111 2r11100000 |
204 2r00011110 2r00000000 |
197 2r00001111 2r11110000 |
205 2r00111111 2r00000000 |
198 2r00011111 2r11111000 |
206 2r01111111 2r10000000 |
199 2r00111111 2r11111100 |
|
200 2r00000000 2r00000000 |
207 2r00000000 2r00000000 |
201 ] |
208 ] |
202 on:Display. |
209 on:Display. |
203 ]. |
210 ]. |
204 form notNil ifTrue:[ |
211 form notNil ifTrue:[ |
|
212 DefaultUpForm := form. |
205 ^ form on:Display |
213 ^ form on:Display |
206 ]. |
214 ]. |
207 ^ nil |
215 ^ nil |
208 |
216 |
209 "Modified: 29.3.1997 / 11:36:55 / cg" |
217 "Created: / 1.4.1997 / 11:54:13 / cg" |
210 "Created: 1.4.1997 / 11:54:13 / cg" |
218 "Modified: / 25.10.1997 / 14:23:49 / cg" |
|
219 ! |
|
220 |
|
221 updateStyleCache |
|
222 DefaultDownForm := DefaultUpForm := DefaultLeftForm := DefaultRightForm := nil. |
|
223 |
|
224 "Created: / 25.10.1997 / 14:11:48 / cg" |
211 ! ! |
225 ! ! |
212 |
226 |
213 !UpDownButton methodsFor:'accessing-behavior'! |
227 !UpDownButton methodsFor:'accessing-behavior'! |
214 |
228 |
215 downAction:aBlock |
229 downAction:aBlock |