equal
deleted
inserted
replaced
23 |
23 |
24 CheckToggle comment:' |
24 CheckToggle comment:' |
25 COPYRIGHT (c) 1991 by Claus Gittinger |
25 COPYRIGHT (c) 1991 by Claus Gittinger |
26 All Rights Reserved |
26 All Rights Reserved |
27 |
27 |
28 $Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.13 1995-07-23 03:01:04 claus Exp $ |
28 $Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.14 1995-08-08 01:06:39 claus Exp $ |
29 '! |
29 '! |
30 |
30 |
31 !CheckToggle class methodsFor:'documentation'! |
31 !CheckToggle class methodsFor:'documentation'! |
32 |
32 |
33 copyright |
33 copyright |
44 " |
44 " |
45 ! |
45 ! |
46 |
46 |
47 version |
47 version |
48 " |
48 " |
49 $Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.13 1995-07-23 03:01:04 claus Exp $ |
49 $Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.14 1995-08-08 01:06:39 claus Exp $ |
50 " |
50 " |
51 ! |
51 ! |
52 |
52 |
53 documentation |
53 documentation |
54 " |
54 " |
198 DefaultActiveBGColor := StyleSheet colorAt:'checkToggleActiveBackgroundColor'. |
198 DefaultActiveBGColor := StyleSheet colorAt:'checkToggleActiveBackgroundColor'. |
199 DefaultActiveLevel := StyleSheet at:'checkToggleActiveLevel'. |
199 DefaultActiveLevel := StyleSheet at:'checkToggleActiveLevel'. |
200 DefaultPassiveLevel := StyleSheet at:'checkTogglePassiveLevel'. |
200 DefaultPassiveLevel := StyleSheet at:'checkTogglePassiveLevel'. |
201 DefaultBorderWidth := StyleSheet at:'checkToggleBorderWidth'. |
201 DefaultBorderWidth := StyleSheet at:'checkToggleBorderWidth'. |
202 |
202 |
|
203 DefaultCheckForm := nil. |
203 checkFileName := StyleSheet at:'checkToggleBitmapFile' default:'CheckOn.xbm'. |
204 checkFileName := StyleSheet at:'checkToggleBitmapFile' default:'CheckOn.xbm'. |
204 checkFileName notNil ifTrue:[ |
205 checkFileName notNil ifTrue:[ |
205 DefaultCheckForm := Form fromFile:checkFileName |
206 DefaultCheckForm := Form fromFile:checkFileName |
206 resolution:100 |
207 resolution:100 |
207 on:Display. |
208 on:Display. |
266 initStyle |
267 initStyle |
267 super initStyle. |
268 super initStyle. |
268 |
269 |
269 onLevel := offLevel. |
270 onLevel := offLevel. |
270 DefaultActiveLevel notNil ifTrue:[onLevel := DefaultActiveLevel]. |
271 DefaultActiveLevel notNil ifTrue:[onLevel := DefaultActiveLevel]. |
271 DefaultPassiveLevel notNil ifTrue:[onLevel := DefaultPassiveLevel]. |
272 DefaultPassiveLevel notNil ifTrue:[offLevel := DefaultPassiveLevel]. |
272 |
273 |
273 activeLogo := DefaultCheckForm on:device. |
274 activeLogo := DefaultCheckForm on:device. |
274 passiveLogo := nil. |
275 passiveLogo := nil. |
275 |
276 |
276 DefaultCheckColor notNil ifTrue:[self activeForegroundColor:DefaultCheckColor]. |
277 DefaultCheckColor notNil ifTrue:[self activeForegroundColor:DefaultCheckColor]. |