--- a/EditField.st	Thu Mar 22 13:42:36 2001 +0100
+++ b/EditField.st	Wed Mar 28 19:45:17 2001 +0200
@@ -1645,15 +1645,17 @@
 hasKeyboardFocus:aBoolean
     "the view got/lost the keyboard focus"
 
-    aBoolean ifFalse:[
-        enabled ifTrue:[
-            acceptOnLostFocus ifTrue:[
-                model notNil ifTrue:[
-                    model value = self argForChangeMessage ifTrue:[
-                        ^ self
-                    ]
+    hasKeyboardFocus ~~ aBoolean ifTrue:[
+        aBoolean ifFalse:[
+            enabled ifTrue:[
+                acceptOnLostFocus ifTrue:[
+                    model notNil ifTrue:[
+                        model value = self argForChangeMessage ifTrue:[
+                            ^ self
+                        ]
+                    ].
+                    self accept.
                 ].
-                self accept.
             ].
         ].
     ].
@@ -2077,5 +2079,5 @@
 !EditField class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.150 2000-10-09 10:00:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.151 2001-03-28 17:45:17 cg Exp $'
 ! !