changeset 1005 | 0b2b698bc4f3 |
parent 1003 | 7880fc48f0bb |
child 1011 | b3be5697d26f |
--- a/FileSelectionBrowser.st Fri Sep 25 16:59:27 1998 +0200 +++ b/FileSelectionBrowser.st Fri Sep 25 17:56:19 1998 +0200 @@ -358,7 +358,10 @@ "/ search backward from aFilename for the last readable dir. root := f. parent := root directory. - [parent exists and:[parent isDirectory and:[parent isReadable]]] + [parent ~= root + and:[parent exists + and:[parent isDirectory + and:[parent isReadable]]]] whileTrue:[ root := parent. parent := root directory.