FileSelectionList.st
changeset 49 4c05e94c0c09
parent 45 e900c30938c8
child 57 4e6d13b8a2af
--- a/FileSelectionList.st	Wed Aug 24 01:37:01 1994 +0200
+++ b/FileSelectionList.st	Wed Aug 24 01:37:35 1994 +0200
@@ -23,7 +23,7 @@
 COPYRIGHT (c) 1993 by Claus Gittinger
               All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/FileSelectionList.st,v 1.5 1994-08-11 23:47:33 claus Exp $
+$Header: /cvs/stx/stx/libwidg/FileSelectionList.st,v 1.6 1994-08-23 23:37:35 claus Exp $
 '!
 
 !FileSelectionList class methodsFor:'documentation'!
@@ -44,7 +44,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/FileSelectionList.st,v 1.5 1994-08-11 23:47:33 claus Exp $
+$Header: /cvs/stx/stx/libwidg/FileSelectionList.st,v 1.6 1994-08-23 23:37:35 claus Exp $
 "
 !
 
@@ -252,7 +252,7 @@
     directoryId == directory id ifFalse:[
         timeStamp := directory timeOfLastChange.
         directoryId := directory id.
-        directoryContents := directory asText sort.
+        directoryContents := directory asCollectionOfLines sort.
         directoryFileTypes := OrderedCollection new.
         directoryContents do:[:name | directoryFileTypes add:(directory typeOf:name)].
     ].