# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1528464152 -7200
# Node ID 3a3d58d1a9daef35ccd9289c12b9321d9289d2f8
# Parent  b6b33c848c7b7c8026772ebb64851bcf372dcf63
#BUGFIX by cg
class: SelectionInListModelView
changed: #helpTextAt:
FIX: care for non-strings

diff -r b6b33c848c7b -r 3a3d58d1a9da SelectionInListModelView.st
--- a/SelectionInListModelView.st	Fri Jun 08 10:52:59 2018 +0200
+++ b/SelectionInListModelView.st	Fri Jun 08 15:22:32 2018 +0200
@@ -2009,8 +2009,10 @@
     item := self at:lineNr ifAbsent:nil.
     item notNil ifTrue:[
         line := item perform:#label ifNotUnderstood:[item displayString].
-        line := line string.
-        line := line withoutSeparators.
+        line isString ifTrue:[
+            line := line string.
+            line := line withoutSeparators.
+        ].
     ].
     line notNil ifTrue:[
         len := self widthOfWidestLineBetween:lineNr and:lineNr.
@@ -2034,7 +2036,7 @@
     ^ text
 
     "Modified: / 20-02-2017 / 10:11:58 / cg"
-    "Modified: / 08-06-2018 / 10:42:27 / Claus Gittinger"
+    "Modified: / 08-06-2018 / 15:21:58 / Claus Gittinger"
 ! !
 
 !SelectionInListModelView methodsFor:'initialization & release'!