--- a/STXInstaller.st Fri Oct 26 16:05:29 2001 +0200
+++ b/STXInstaller.st Fri Oct 26 16:46:11 2001 +0200
@@ -64,11 +64,15 @@
|dirs|
dirs := OrderedCollection new.
- dirs add:(Filename homeDirectory constructString:'stxDevelop').
- dirs add:((Filename homeDirectory construct:'stx') constructString:'develop').
- ('/home' asFilename exists and:['/home' asFilename isDirectory]) ifTrue:[
- dirs add:'/home/stx/develop'.
- ].
+
+ dirs add:((Filename homeDirectory constructString:'stxDevelop')).
+ dirs add:((Filename homeDirectory constructString:'develop')).
+ dirs add:((Filename homeDirectory constructString:'work')).
+
+"/ ('/home' asFilename exists
+"/ and:['/home' asFilename isDirectory]) ifTrue:[
+"/ dirs add:'/home/work'.
+"/ ].
^ dirs "sort"
@@ -436,6 +440,9 @@
].
installWhat == #full ifTrue:[
+ "/ MUST be under stx (for packagePath stuff)
+ fullDir := fullDir asFilename constructString:'stx'.
+
msg at:4 put:(' all from CD' asText allBold).
msg at:6 put:' ' , (fullDir asText allBold).
actionTextHolder value:nil.
@@ -1011,9 +1018,7 @@
fullDirHolder|
LastFullDir isNil ifTrue:[
- LastFullDir := (Filename homeDirectory
- construct:'stx')
- constructString:'develop'
+ LastFullDir := (Filename homeDirectory construct:'work') constructString:'stx'
].
fullDirHolder := LastFullDir asValue.