CheckBox.st
changeset 1265 8d0ea1b4b97c
parent 1138 14dc9f6791d2
child 1276 d44c8332940d
--- a/CheckBox.st	Fri Mar 19 21:19:37 1999 +0100
+++ b/CheckBox.st	Fri Mar 19 21:20:06 1999 +0100
@@ -658,9 +658,13 @@
     "Modified: 10.7.1996 / 11:54:52 / cg"
 ! !
 
-!CheckBox methodsFor:'focus change'!
+!CheckBox methodsFor:'focus handling'!
 
 showFocus:explicit
+    "the button got the keyboard focus 
+     (either explicit, via tabbing; or implicit, by pointer movement)
+      - change any display attributes as req'd."
+
     styleSheet name == #win95 ifTrue:[
         labelView hasFocus:true.
         labelView invalidate.
@@ -673,6 +677,10 @@
 !
 
 showNoFocus:explicit
+    "the button lost the keyboard focus 
+     (either explicit, via tabbing; or implicit, by pointer movement)
+      - change any display attributes as req'd."
+
     styleSheet name == #win95 ifTrue:[
         labelView hasFocus:false.
         labelView invalidate.
@@ -835,5 +843,5 @@
 !CheckBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.56 1998-09-18 18:03:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.57 1999-03-19 20:20:06 cg Exp $'
 ! !