ListView.st
changeset 3570 aa55082a7bb5
parent 3564 59aa55968987
child 3576 469c653bd012
--- a/ListView.st	Sat Mar 08 11:53:11 2008 +0100
+++ b/ListView.st	Sat Mar 08 11:55:33 2008 +0100
@@ -836,7 +836,8 @@
 
     lineEndCRLF := (aCollection size > 0 
                     and:[aCollection first isString
-                    and:[aCollection first string endsWith:Character return]]).
+                    and:[aCollection first notEmpty
+                    and:[aCollection first string endsWith:Character return]]]).
     lineEndCRLF ifTrue:[
         list := aCollection 
                     collect:[:eachLineWithCROrNil | 
@@ -4520,5 +4521,5 @@
 !ListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.322 2008-02-26 10:16:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.323 2008-03-08 10:55:33 cg Exp $'
 ! !