--- a/SelectionInListModelView.st	Thu May 02 12:26:09 2019 +0200
+++ b/SelectionInListModelView.st	Thu May 02 18:13:07 2019 +0200
@@ -2034,7 +2034,15 @@
         len := self widthOfWidestLineBetween:lineNr and:lineNr.
         len > width ifTrue:[
             (line isString or:[line isLabelAndIcon]) ifTrue:[
-                text := line string collect:[:ch | ch isSeparator ifTrue:[Character space] ifFalse:[ch]].
+                "/ replace tabs and newlines by spaces
+                text := line asStringCollection
+                            collect:[:eachLine |
+                                eachLine string collect:[:ch | ch isSeparator ifTrue:[Character space] ifFalse:[ch]].
+                            ].
+                text size > 20 ifTrue:[
+                    text := (text copyTo:20),'...'
+                ].
+                text := text asString.
             ].
         ].
     ].    
@@ -2053,7 +2061,7 @@
     ^ text
 
     "Modified: / 20-02-2017 / 10:11:58 / cg"
-    "Modified: / 03-10-2018 / 12:53:44 / Claus Gittinger"
+    "Modified: / 02-05-2019 / 16:36:58 / Claus Gittinger"
 ! !
 
 !SelectionInListModelView methodsFor:'initialization & release'!