win95 style noFocus drawing
authorClaus Gittinger <cg@exept.de>
Fri, 14 Dec 2001 10:39:39 +0100
changeset 2066 06618ad5f49f
parent 2065 845bd5d2523c
child 2067 cda10b41aa0f
win95 style noFocus drawing
CheckBox.st
--- 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 $'
 ! !