EditField.st
changeset 4979 bcf924c2ec88
parent 4939 0e82fae1efa1
child 4986 f3349579b8d3
--- a/EditField.st	Wed Mar 26 10:55:36 2014 +0100
+++ b/EditField.st	Wed Apr 02 12:09:05 2014 +0200
@@ -1668,7 +1668,7 @@
         "/  2) general leaveAction
         "/  3) tab or return action
         leaveKeyActions notNil ifTrue:[
-            keyAction := leaveKeyActions at:key ifAbsent:nil.
+            keyAction := leaveKeyActions at:key ifAbsent:[keyAction].
         ].
         keyAction := keyAction ? leaveAction.
     ].
@@ -2346,10 +2346,10 @@
 !EditField class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.230 2014-03-05 15:15:46 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.231 2014-04-02 10:09:05 ca Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.230 2014-03-05 15:15:46 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.231 2014-04-02 10:09:05 ca Exp $'
 ! !