--- a/FileSelectionList.st	Wed Jan 07 16:40:53 2004 +0100
+++ b/FileSelectionList.st	Wed Jan 07 16:43:33 2004 +0100
@@ -67,7 +67,7 @@
 
             directoryContents       (cached) contents of current directory
 
-            directoryFileTypes      (cached) file types (symbols) of current directory
+            directoryFileTypes      (cached) isDirectory-boolean per entry
 
             fileTypes               file types as shown in list (i.e only matching ones)
 
@@ -941,7 +941,7 @@
 updateList
     "set the lists contents to the filenames in the directory"
 
-    |newList newTypes index obsolete 
+    |newList newTypes obsolete 
      matching dir ignoreCase|
 
     directory isNil ifTrue:[
@@ -969,7 +969,6 @@
 
         newList := OrderedCollection new.
         newTypes := OrderedCollection new.
-        index := 1.
 
         ignoreCase := ignoreCaseInPattern ? (Filename isCaseSensitive not).
 
@@ -1017,7 +1016,6 @@
                 newList add:name.
                 newTypes add:isDirectory.
             ].
-            index := index + 1
         ].
         directoryFileTypes := newTypes.
         self list:newList.
@@ -1081,5 +1079,5 @@
 !FileSelectionList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionList.st,v 1.51 2004-01-07 15:40:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionList.st,v 1.52 2004-01-07 15:43:33 cg Exp $'
 ! !