equal
deleted
inserted
replaced
367 ! |
367 ! |
368 |
368 |
369 backgroundChannel:aChannel |
369 backgroundChannel:aChannel |
370 |
370 |
371 labelView backgroundChannel: (backgroundChannel := aChannel). |
371 labelView backgroundChannel: (backgroundChannel := aChannel). |
372 aChannel onChangeSend:#value to: [self enableStateChanged] |
372 aChannel onChangeSend:#enableStateChanged to:self. |
373 ! |
373 ! |
374 |
374 |
375 enableChannel |
375 enableChannel |
376 "return a valueHolder for enable/disable" |
376 "return a valueHolder for enable/disable" |
377 |
377 |
385 |
385 |
386 |wasEnabled| |
386 |wasEnabled| |
387 |
387 |
388 wasEnabled := toggleView enabled. |
388 wasEnabled := toggleView enabled. |
389 toggleView enableChannel:aChannel. |
389 toggleView enableChannel:aChannel. |
390 aChannel onChangeSend:#value to: [self enableStateChanged]. |
390 aChannel onChangeSend:#enableStateChanged to:self. |
391 |
391 |
392 aChannel value ~~ wasEnabled ifTrue:[ |
392 aChannel value ~~ wasEnabled ifTrue:[ |
393 self enableStateChanged |
393 self enableStateChanged |
394 ] |
394 ] |
395 ! |
395 ! |
400 ! |
400 ! |
401 |
401 |
402 foregroundChannel:aChannel |
402 foregroundChannel:aChannel |
403 |
403 |
404 labelView foregroundChannel: (foregroundChannel := aChannel). |
404 labelView foregroundChannel: (foregroundChannel := aChannel). |
405 aChannel onChangeSend:#value to: [self enableStateChanged] |
405 aChannel onChangeSend:#enableStateChanged to:self. |
406 |
406 |
407 ! |
407 ! |
408 |
408 |
409 labelChannel |
409 labelChannel |
410 |
410 |
604 ! ! |
604 ! ! |
605 |
605 |
606 !CheckBox methodsFor:'change & update'! |
606 !CheckBox methodsFor:'change & update'! |
607 |
607 |
608 enableStateChanged |
608 enableStateChanged |
609 "handle changes on the enableChannel, change labels color." |
609 "handle changes on the enableChannel or fg/bg color, change labels color." |
610 |
610 |
611 |clr| |
611 |clr| |
612 |
612 |
613 self enabled ifTrue:[ |
613 self enabled ifTrue:[ |
614 (foregroundChannel notNil and: [foregroundChannel value notNil]) |
614 (foregroundChannel notNil and: [foregroundChannel value notNil]) |
839 ! ! |
839 ! ! |
840 |
840 |
841 !CheckBox class methodsFor:'documentation'! |
841 !CheckBox class methodsFor:'documentation'! |
842 |
842 |
843 version |
843 version |
844 ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.63 2000-01-14 16:27:49 cg Exp $' |
844 ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.64 2000-02-03 17:34:36 cg Exp $' |
845 ! ! |
845 ! ! |