13 Toggle subclass:#CheckToggle |
13 Toggle subclass:#CheckToggle |
14 instanceVariableNames:'' |
14 instanceVariableNames:'' |
15 classVariableNames:'DefaultCheckForm DefaultCheckColor DefaultActiveFGColor |
15 classVariableNames:'DefaultCheckForm DefaultCheckColor DefaultActiveFGColor |
16 DefaultActiveBGColor DefaultFGColor DefaultBGColor |
16 DefaultActiveBGColor DefaultFGColor DefaultBGColor |
17 DefaultActiveLevel DefaultPassiveLevel DefaultBorderWidth |
17 DefaultActiveLevel DefaultPassiveLevel DefaultBorderWidth |
18 LabelOverMargin' |
18 LabelOverMargin DefaultActiveImage DefaultPassiveImage' |
19 poolDictionaries:'' |
19 poolDictionaries:'' |
20 category:'Views-Interactors' |
20 category:'Views-Interactors' |
21 ! |
21 ! |
22 |
22 |
23 !CheckToggle class methodsFor:'documentation'! |
23 !CheckToggle class methodsFor:'documentation'! |
60 can be #cross or #check; defaults to #check |
60 can be #cross or #check; defaults to #check |
61 |
61 |
62 checkToggleAvtiveLevel <Number> active level - defaults to value of #buttonPassiveLevel |
62 checkToggleAvtiveLevel <Number> active level - defaults to value of #buttonPassiveLevel |
63 checkTogglePassiveLevel <Number> active level - defaults to value of #buttonPassiveLevel |
63 checkTogglePassiveLevel <Number> active level - defaults to value of #buttonPassiveLevel |
64 checkToggleBorderWidth <Number> borderWidth - defaults buttons default |
64 checkToggleBorderWidth <Number> borderWidth - defaults buttons default |
|
65 |
|
66 checkToggleActiveImage <Image> image to draw when active; if non-nil, |
|
67 this overwrites activeColor & bitmapFile above. |
|
68 |
|
69 checkTogglePassiveImage <Image> image to draw when passive; if non-nil, |
|
70 this overwrites passiveColor & bitmapFile above. |
65 |
71 |
66 (if not set in the styleSheet, Toggle values are taken) |
72 (if not set in the styleSheet, Toggle values are taken) |
67 |
73 |
68 See examples. |
74 See examples. |
69 |
75 |
364 |
370 |
365 <resource: #style (#'checkToggle.checkColor' |
371 <resource: #style (#'checkToggle.checkColor' |
366 #'checkToggle.backgroundColor' #'checkToggleForegroundColor' |
372 #'checkToggle.backgroundColor' #'checkToggleForegroundColor' |
367 #'checkToggle.activeBackgroundColor' #'checkToggleActiveForegroundColor' |
373 #'checkToggle.activeBackgroundColor' #'checkToggleActiveForegroundColor' |
368 #'checkToggle.activeLevel' #'checkTogglePassiveLevel' |
374 #'checkToggle.activeLevel' #'checkTogglePassiveLevel' |
|
375 #'checkToggle.activeImage' #'checkTogglePassiveImage' |
369 #'checkToggle.borderWidth' |
376 #'checkToggle.borderWidth' |
370 #'checkToggle.bitmapFile' |
377 #'checkToggle.bitmapFile' |
371 #'checkToggle.labelOverMargin' |
378 #'checkToggle.labelOverMargin' |
372 #'checkToggle.style')> |
379 #'checkToggle.style')> |
373 |
380 |
374 |checkFileName checkStyle| |
381 |checkFileName checkStyle f| |
375 |
382 |
376 DefaultCheckColor := StyleSheet colorAt:'checkToggle.checkColor'. |
383 DefaultCheckColor := StyleSheet colorAt:'checkToggle.checkColor'. |
377 DefaultFGColor := StyleSheet colorAt:'checkToggle.foregroundColor'. |
384 DefaultFGColor := StyleSheet colorAt:'checkToggle.foregroundColor'. |
378 DefaultBGColor := StyleSheet colorAt:'checkToggle.backgroundColor'. |
385 DefaultBGColor := StyleSheet colorAt:'checkToggle.backgroundColor'. |
379 DefaultActiveFGColor := StyleSheet colorAt:'checkToggle.activeForegroundColor'. |
386 DefaultActiveFGColor := StyleSheet colorAt:'checkToggle.activeForegroundColor'. |
401 ]. |
408 ]. |
402 StyleSheet name == #os2 ifTrue: [ |
409 StyleSheet name == #os2 ifTrue: [ |
403 DefaultCheckForm := DefaultCheckForm subImageIn: (0@0 extent: 15@15) |
410 DefaultCheckForm := DefaultCheckForm subImageIn: (0@0 extent: 15@15) |
404 ]. |
411 ]. |
405 |
412 |
|
413 DefaultActiveImage := StyleSheet at:'checkToggle.activeImage'. |
|
414 DefaultPassiveImage := StyleSheet at:'checkToggle.passiveImage'. |
|
415 |
406 " |
416 " |
407 self updateStyleCache |
417 self updateStyleCache |
408 " |
418 " |
409 |
419 |
410 "Modified: 20.10.1997 / 13:53:33 / cg" |
420 "Modified: / 19.5.1998 / 16:01:33 / cg" |
411 ! ! |
421 ! ! |
412 |
422 |
413 !CheckToggle methodsFor:'event handling'! |
423 !CheckToggle methodsFor:'event handling'! |
414 |
424 |
415 sizeChanged:how |
425 sizeChanged:how |
430 DefaultPassiveLevel notNil ifTrue:[offLevel := DefaultPassiveLevel]. |
440 DefaultPassiveLevel notNil ifTrue:[offLevel := DefaultPassiveLevel]. |
431 |
441 |
432 activeLogo := DefaultCheckForm onDevice:device. |
442 activeLogo := DefaultCheckForm onDevice:device. |
433 passiveLogo := nil. |
443 passiveLogo := nil. |
434 |
444 |
|
445 DefaultActiveImage notNil ifTrue:[ |
|
446 activeLogo := DefaultActiveImage onDevice:device. |
|
447 ]. |
|
448 DefaultPassiveImage notNil ifTrue:[ |
|
449 passiveLogo := DefaultPassiveImage onDevice:device. |
|
450 ]. |
|
451 |
435 DefaultActiveFGColor notNil ifTrue:[ |
452 DefaultActiveFGColor notNil ifTrue:[ |
436 self activeForegroundColor:DefaultActiveFGColor |
453 self activeForegroundColor:DefaultActiveFGColor |
437 ]. |
454 ]. |
438 DefaultCheckColor notNil ifTrue:[ |
455 DefaultCheckColor notNil ifTrue:[ |
439 self activeForegroundColor:DefaultCheckColor |
456 self activeForegroundColor:DefaultCheckColor |
440 ]. |
457 ]. |
441 DefaultActiveBGColor notNil ifTrue:[ |
458 DefaultActiveBGColor notNil ifTrue:[ |
442 self activeBackgroundColor:DefaultActiveBGColor |
459 self activeBackgroundColor:DefaultActiveBGColor |
443 ]. |
460 ]. |
444 DefaultFGColor notNil ifTrue:[ |
461 DefaultFGColor notNil ifTrue:[ |
445 self foregroundColor:DefaultFGColor |
462 self foregroundColor:DefaultFGColor |
446 ]. |
463 ]. |
447 DefaultBGColor notNil ifTrue:[ |
464 DefaultBGColor notNil ifTrue:[ |
448 self backgroundColor:DefaultBGColor |
465 self backgroundColor:DefaultBGColor |
449 ]. |
466 ]. |
450 |
467 |
451 showLamp := false. |
468 showLamp := false. |
452 |
469 |
453 DefaultBorderWidth notNil ifTrue:[self borderWidth:DefaultBorderWidth]. |
470 DefaultBorderWidth notNil ifTrue:[self borderWidth:DefaultBorderWidth]. |
454 |
471 |
455 offLevel ~~ level ifTrue:[self level:offLevel]. |
472 offLevel ~~ level ifTrue:[self level:offLevel]. |
456 |
473 |
457 "Modified: 22.1.1997 / 11:57:05 / cg" |
474 "Modified: / 19.5.1998 / 15:50:29 / cg" |
458 ! |
475 ! |
459 |
476 |
460 initialize |
477 initialize |
461 super initialize. |
478 super initialize. |
462 passiveLogo := nil. |
479 passiveLogo := DefaultPassiveImage. |
463 self label:activeLogo. "/ to let me compute some defaultExtent |
480 self label:activeLogo. "/ to let me compute some defaultExtent |
|
481 |
|
482 "Modified: / 19.5.1998 / 15:51:49 / cg" |
464 ! ! |
483 ! ! |
465 |
484 |
466 !CheckToggle methodsFor:'queries'! |
485 !CheckToggle methodsFor:'queries'! |
467 |
486 |
468 label: something |
487 label: something |