diff -r eb55fd7c60bb -r c22a8fbe90ed FileSelectionList.st
--- a/FileSelectionList.st	Thu Jul 24 18:19:49 1997 +0200
+++ b/FileSelectionList.st	Thu Jul 24 18:21:24 1997 +0200
@@ -22,7 +22,7 @@
 	category:'Views-Text'
 !
 
-!FileSelectionList  class methodsFor:'documentation'!
+!FileSelectionList class methodsFor:'documentation'!
 
 copyright
 "
@@ -41,7 +41,7 @@
 documentation
 "
     this class implements file selection lists - its basically a
-    selection in list, but adds some right-arrows to directories.
+    selection-in-list-view, but adds some right-arrows to directories.
     (and will soon remember the previous position when changing directories).
     You can specify an optional filename-pattern (such as '*.st') and an
     optional matchBlock (such as: [:name | name startsWith:'A']).
@@ -942,22 +942,25 @@
 
 !FileSelectionList methodsFor:'realization'!
 
-realize
-    "make the view visible; redefined to check if directory is still 
-     valid (using timestamp and inode numbers) - reread if not"
+postRealize
+    "check if directory is still valid (using timestamp and inode numbers)
+     - reread if not"
+
+    super postRealize.
 
     (timeStamp isNil 
      or:[(directory timeOfLastChange > timeStamp) 
      or:[(directoryId isNil)
      or:[directoryId ~~ directory id]]]) ifTrue:[
-	directoryId := nil.
-	self updateList
+        directoryId := nil.
+        self updateList
     ].
-    super realize
+
+    "Created: 24.7.1997 / 18:20:16 / cg"
 ! !
 
-!FileSelectionList  class methodsFor:'documentation'!
+!FileSelectionList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionList.st,v 1.34 1996-10-14 21:31:34 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionList.st,v 1.35 1997-07-24 16:21:24 cg Exp $'
 ! !