equal
deleted
inserted
replaced
212 |
212 |
213 ^ DefaultCheckForm on:aDevice. |
213 ^ DefaultCheckForm on:aDevice. |
214 ! |
214 ! |
215 |
215 |
216 updateStyleCache |
216 updateStyleCache |
|
217 "extract values from the styleSheet and cache them in class variables" |
|
218 |
|
219 <resource: #style (#checkToggleCheckColor |
|
220 #checkToggleBackgroundColor #checkToggleForegroundColor |
|
221 #checkToggleActiveBackgroundColor #checkTogglenActiveForegroundColor |
|
222 #checkToggleActiveLevel #checkTogglePassiveLevel |
|
223 #checkToggleBorderWidth |
|
224 #checkToggleBitmapFile |
|
225 #checkToggleStyle)> |
|
226 |
217 |checkFileName bits checkStyle| |
227 |checkFileName bits checkStyle| |
218 |
228 |
219 DefaultCheckColor := StyleSheet colorAt:'checkToggleCheckColor'. |
229 DefaultCheckColor := StyleSheet colorAt:'checkToggleCheckColor'. |
220 DefaultFGColor := StyleSheet colorAt:'checkToggleForegroundColor'. |
230 DefaultFGColor := StyleSheet colorAt:'checkToggleForegroundColor'. |
221 DefaultBGColor := StyleSheet colorAt:'checkToggleBackgroundColor'. |
231 DefaultBGColor := StyleSheet colorAt:'checkToggleBackgroundColor'. |
289 2r00000000 2r00000000] |
299 2r00000000 2r00000000] |
290 ] |
300 ] |
291 ]. |
301 ]. |
292 DefaultCheckForm := Form width:16 height:16 fromArray:bits on:Display |
302 DefaultCheckForm := Form width:16 height:16 fromArray:bits on:Display |
293 ] |
303 ] |
|
304 |
|
305 "Modified: 1.3.1996 / 13:45:45 / cg" |
294 ! ! |
306 ! ! |
295 |
307 |
296 !CheckToggle methodsFor:'initialization'! |
308 !CheckToggle methodsFor:'initialization'! |
297 |
309 |
298 initStyle |
310 initStyle |
338 ! ! |
350 ! ! |
339 |
351 |
340 !CheckToggle class methodsFor:'documentation'! |
352 !CheckToggle class methodsFor:'documentation'! |
341 |
353 |
342 version |
354 version |
343 ^ '$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.22 1996-02-21 17:02:31 cg Exp $' |
355 ^ '$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.23 1996-03-01 12:58:15 cg Exp $' |
344 ! ! |
356 ! ! |