equal
deleted
inserted
replaced
22 |
22 |
23 !CheckBox class methodsFor:'documentation'! |
23 !CheckBox class methodsFor:'documentation'! |
24 |
24 |
25 version |
25 version |
26 " |
26 " |
27 $Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.10 1995-09-17 16:02:15 claus Exp $ |
27 $Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.11 1995-09-21 12:24:27 claus Exp $ |
28 " |
28 " |
29 ! |
29 ! |
30 |
30 |
31 documentation |
31 documentation |
32 " |
32 " |
229 "forward to toggle" |
229 "forward to toggle" |
230 |
230 |
231 toggleView changeMessage:aChangeSelector |
231 toggleView changeMessage:aChangeSelector |
232 ! |
232 ! |
233 |
233 |
234 aspect:aspectSymbol |
234 aspectMessage:aspectSymbol |
235 "forward to label & toggle" |
235 "forward to label & toggle" |
236 |
236 |
237 labelView aspect:aspectSymbol. |
237 labelView aspectMessage:aspectSymbol. |
238 toggleView aspect:aspectSymbol |
238 toggleView aspectMessage:aspectSymbol |
239 ! |
239 ! |
240 |
240 |
241 model:aModel |
241 model:aModel |
242 "forward to label & toggle" |
242 "forward to label & toggle" |
243 |
243 |
291 toggleView |
291 toggleView |
292 "return the toggleView; allows manipulation of the |
292 "return the toggleView; allows manipulation of the |
293 toggles attributes (colors etc.)" |
293 toggles attributes (colors etc.)" |
294 |
294 |
295 ^ toggleView |
295 ^ toggleView |
|
296 ! ! |
|
297 |
|
298 !CheckBox methodsFor:'accessing-state'! |
|
299 |
|
300 isOn |
|
301 ^ toggleView isOn |
296 ! ! |
302 ! ! |
297 |
303 |
298 !CheckBox methodsFor:'accessing-look'! |
304 !CheckBox methodsFor:'accessing-look'! |
299 |
305 |
300 label:aString |
306 label:aString |