CheckBox.st
changeset 2066 06618ad5f49f
parent 2060 ec6351a7cb37
child 2157 6cfdf247519a
equal deleted inserted replaced
2065:845bd5d2523c 2066:06618ad5f49f
   727 showNoFocus:explicit
   727 showNoFocus:explicit
   728     "the button lost the keyboard focus 
   728     "the button lost the keyboard focus 
   729      (either explicit, via tabbing; or implicit, by pointer movement)
   729      (either explicit, via tabbing; or implicit, by pointer movement)
   730       - change any display attributes as req'd."
   730       - change any display attributes as req'd."
   731 
   731 
   732     (styleSheet at:#'focusHighlightStyle') ifTrue:[
   732     (styleSheet at:#'focusHighlightStyle') == #win95 ifTrue:[
   733         labelView hasFocus:false.
   733         labelView hasFocus:false.
   734         labelView invalidate.
   734         labelView invalidate.
   735     ] ifFalse:[
   735     ] ifFalse:[
   736         ^ super showNoFocus:explicit
   736         ^ super showNoFocus:explicit
   737     ]
   737     ]
   900 ! !
   900 ! !
   901 
   901 
   902 !CheckBox class methodsFor:'documentation'!
   902 !CheckBox class methodsFor:'documentation'!
   903 
   903 
   904 version
   904 version
   905     ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.69 2001-12-08 13:29:00 cg Exp $'
   905     ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.70 2001-12-14 09:39:39 cg Exp $'
   906 ! !
   906 ! !