ListSelectionBox.st
changeset 5702 b4a62021b2ab
parent 5699 1ebb2d421c0d
child 5874 f98bc7420296
--- a/ListSelectionBox.st	Wed May 04 16:12:21 2016 +0200
+++ b/ListSelectionBox.st	Thu May 05 09:42:14 2016 +0200
@@ -403,7 +403,10 @@
 !
 
 setupEditfieldToMoveToListOnCursorDown
-    self enterField 
+    |inputField|
+
+    (inputField := self enterField) isNil ifTrue:[^ self].
+    inputField
         onKey:#CursorDown 
         leaveWith:[
             |listView|