--- a/ListSelectionBox.st Wed Oct 19 13:24:33 2016 +0200
+++ b/ListSelectionBox.st Wed Oct 19 16:32:30 2016 +0200
@@ -367,10 +367,12 @@
[:text | |string index|
enterField notNil ifTrue:[
string := enterField contents.
- "/ find the first list-entry, starting with entered text
- index := (selectionList list ? #()) findFirst:[:line | (line ? '') string startsWith:string string].
- index ~~ 0 ifTrue:[
- selectionList scrollToLine:index "/ makeLineVisible:index.
+ string notEmptyOrNil ifTrue:[
+ "/ find the first list-entry, starting with entered text
+ index := (selectionList list ? #()) findFirst:[:line | (line ? '') string startsWith:string string].
+ index ~~ 0 ifTrue:[
+ selectionList scrollToLine:index "/ makeLineVisible:index.
+ ].
].
].
].