--- 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 $'
! !