#OTHER
authorClaus Gittinger <cg@exept.de>
Wed, 30 Sep 2015 22:10:29 +0200
changeset 5429 1c08a8812faa
parent 5426 d5ee0a25e19c
child 5430 828466a23035
child 5431 eb3bc90b2a71
#OTHER class: SelectionInListView changed: #keyPress:x:y: care for nonstrings in key-press search
SelectionInListView.st
--- a/SelectionInListView.st	Wed Sep 30 04:03:43 2015 +0000
+++ b/SelectionInListView.st	Wed Sep 30 22:10:29 2015 +0200
@@ -2694,7 +2694,7 @@
                     "/ none found.
                     searchPrefix size == 1 ifTrue:[
                         "/ if all start with the same prefix, use the char after the prefix
-                        prefix := (self list collect:[:l | l ? '']) longestCommonPrefixCaseSensitive:false.
+                        prefix := (self list collect:[:l | (l ? '')string]) longestCommonPrefixCaseSensitive:false.
                         prefix isEmptyOrNil ifTrue:[
                             ^ self
                         ].