equal
deleted
inserted
replaced
661 showFocus:explicit |
661 showFocus:explicit |
662 "the button got the keyboard focus |
662 "the button got the keyboard focus |
663 (either explicit, via tabbing; or implicit, by pointer movement) |
663 (either explicit, via tabbing; or implicit, by pointer movement) |
664 - change any display attributes as req'd." |
664 - change any display attributes as req'd." |
665 |
665 |
666 styleSheet name == #win95 ifTrue:[ |
666 (styleSheet at:#'focusHighlightStyle') == #win95 ifTrue:[ |
667 labelView hasFocus:true. |
667 labelView hasFocus:true. |
668 labelView invalidate. |
668 labelView invalidate. |
669 ] ifFalse:[ |
669 ] ifFalse:[ |
670 ^ super showFocus:explicit |
670 ^ super showFocus:explicit |
671 ] |
671 ] |
677 showNoFocus:explicit |
677 showNoFocus:explicit |
678 "the button lost the keyboard focus |
678 "the button lost the keyboard focus |
679 (either explicit, via tabbing; or implicit, by pointer movement) |
679 (either explicit, via tabbing; or implicit, by pointer movement) |
680 - change any display attributes as req'd." |
680 - change any display attributes as req'd." |
681 |
681 |
682 styleSheet name == #win95 ifTrue:[ |
682 (styleSheet at:#'focusHighlightStyle') ifTrue:[ |
683 labelView hasFocus:false. |
683 labelView hasFocus:false. |
684 labelView invalidate. |
684 labelView invalidate. |
685 ] ifFalse:[ |
685 ] ifFalse:[ |
686 ^ super showNoFocus:explicit |
686 ^ super showNoFocus:explicit |
687 ] |
687 ] |
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.64 2000-02-03 17:34:36 cg Exp $' |
844 ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.65 2000-02-11 14:56:08 cg Exp $' |
845 ! ! |
845 ! ! |