CheckBox.st
changeset 2066 06618ad5f49f
parent 2060 ec6351a7cb37
child 2157 6cfdf247519a
--- a/CheckBox.st	Wed Dec 12 17:01:01 2001 +0100
+++ b/CheckBox.st	Fri Dec 14 10:39:39 2001 +0100
@@ -729,7 +729,7 @@
      (either explicit, via tabbing; or implicit, by pointer movement)
       - change any display attributes as req'd."
 
-    (styleSheet at:#'focusHighlightStyle') ifTrue:[
+    (styleSheet at:#'focusHighlightStyle') == #win95 ifTrue:[
         labelView hasFocus:false.
         labelView invalidate.
     ] ifFalse:[
@@ -902,5 +902,5 @@
 !CheckBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.69 2001-12-08 13:29:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.70 2001-12-14 09:39:39 cg Exp $'
 ! !