# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 841751453 -7200
# Node ID 7b048cdcc856146f1842f2525a84ca2bbebab58c
# Parent  936a4407697b8332e9a36e2f5e16dd3687a535d9
checkin from browser

diff -r 936a4407697b -r 7b048cdcc856 STXInstaller.st
--- a/STXInstaller.st	Mon Jul 22 11:47:54 1996 +0200
+++ b/STXInstaller.st	Tue Sep 03 13:50:53 1996 +0200
@@ -25,9 +25,19 @@
     dirs add:'/usr/bin'.
     dirs add:(Filename homeDirectory constructString:'bin').
     dirs add:'/tmp/stxbin'.
-    dirs add:'/home/stx/bin'.
-    dirs add:'/home2/stx/bin'.
-    ^ dirs
+    ('/home' asFilename exists and:['/home' asFilename isDirectory]) ifTrue:[
+        dirs add:'/home/stx/bin'.
+    ].
+    ('/home2' asFilename exists and:['/home2' asFilename isDirectory]) ifTrue:[
+        dirs add:'/home2/stx/bin'.
+    ].
+
+"/    dirs := dirs select:[:path | 
+"/                            |f|
+"/
+"/                            f := path asFilename.
+"/                            f exists and:[f isDirectory]].
+    ^ dirs sort
 
     "Created: 18.7.1996 / 19:43:00 / cg"
     "Modified: 18.7.1996 / 19:45:08 / cg"
@@ -45,7 +55,13 @@
     dirs add:'/tmp/stxlib'.
     dirs add:'/home/stx/lib'.
     dirs add:'/home2/stx/lib'.
-    ^ dirs
+
+"/    dirs := dirs select:[:path | 
+"/                            |f|
+"/
+"/                            f := path asFilename.
+"/                            f exists and:[f isDirectory]].
+    ^ dirs sort
 
     "Created: 18.7.1996 / 19:43:21 / cg"
     "Modified: 18.7.1996 / 19:46:04 / cg"