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|