--- a/Button.st	Fri Mar 19 13:27:35 1999 +0100
+++ b/Button.st	Fri Mar 19 21:09:51 1999 +0100
@@ -1612,9 +1612,12 @@
     "Modified: 8.2.1996 / 15:29:23 / cg"
 ! !
 
-!Button methodsFor:'focus change'!
+!Button methodsFor:'focus handling'!
 
 showFocus:explicit
+    "the button got the keyboard focus 
+     (either explicit, via tabbing; or implicit, by pointer movement)"
+
     focusLogo notNil ifTrue:[
         controller enabled ifTrue:[
             logo := focusLogo.  
@@ -1632,6 +1635,9 @@
 !
 
 showNoFocus:explicit
+    "the button lost the keyboard focus 
+     (either explicit, via tabbing; or implicit, by pointer movement)"
+
     focusLogo notNil ifTrue:[
         disabledLogo notNil ifTrue:[
             controller enabled ifTrue:[
@@ -2236,5 +2242,5 @@
 !Button class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Button.st,v 1.104 1999-03-10 22:31:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Button.st,v 1.105 1999-03-19 20:09:51 cg Exp $'
 ! !