--- a/STXInstaller.st Mon Apr 20 00:56:37 1998 +0200
+++ b/STXInstaller.st Mon Apr 20 15:38:13 1998 +0200
@@ -262,6 +262,24 @@
!STXInstaller methodsFor:'installing'!
+changeWritability
+ |msg dirsToMake numDirs nDone|
+
+ msg := (resources array:#('ST/X Installation' '' 'making target dir writable' '' '' '')) asStringCollection.
+
+ commandTraceView showCR:(resources string:'making target dir writable ...').
+ commandTraceView endEntry.
+ fullInstallation ifTrue:[
+ OperatingSystem executeCommand:('(cd ' , fullDir , ' ; find . -exec chmod u+w {} \;)').
+ ] ifFalse:[
+ OperatingSystem executeCommand:('(cd ' , stxLibDir , ' ; find . -exec chmod u+w {} \;)').
+ ].
+ ^ true
+
+ "Modified: / 25.2.1998 / 19:20:59 / cg"
+ "Created: / 20.4.1998 / 15:37:52 / cg"
+!
+
copyFiles
|msg fileSpec filesToCopy numFiles nDone cmd|
@@ -1095,6 +1113,7 @@
doDfMonitoring := true.
ok := self copyFiles
].
+ self changeWritability.
self createSymbolicLinks.
progressValue value:100.
@@ -1134,7 +1153,7 @@
"
"Created: / 17.7.1996 / 15:11:27 / cg"
- "Modified: / 25.2.1998 / 22:57:10 / cg"
+ "Modified: / 20.4.1998 / 15:36:40 / cg"
!
open