oops - avoid endless loop when alking dir-hierarchy up.
--- 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.