--- a/STXInstaller.st Mon Apr 20 15:39:07 1998 +0200
+++ b/STXInstaller.st Mon Apr 20 15:40:18 1998 +0200
@@ -265,19 +265,16 @@
changeWritability
|msg|
- msg := (resources array:#('ST/X Installation' '' 'making target dir writable' '' '' '')) asStringCollection.
+ fullInstallation ifTrue:[
+ msg := (resources array:#('ST/X Installation' '' 'making target dir writable' '' '' '')) asStringCollection.
- commandTraceView showCR:(resources string:'making target dir writable ...').
- commandTraceView endEntry.
- fullInstallation ifTrue:[
+ commandTraceView showCR:(resources string:'making target dir writable ...').
+ commandTraceView endEntry.
OperatingSystem executeCommand:('(cd ' , fullDir , ' ; find . -exec chmod u+w {} \;)').
- ] ifFalse:[
- OperatingSystem executeCommand:('(cd ' , stxLibDir , ' ; find . -exec chmod u+w {} \;)').
].
- ^ true
"Created: / 17.7.1996 / 15:24:19 / cg"
- "Modified: / 20.4.1998 / 15:38:59 / cg"
+ "Modified: / 20.4.1998 / 15:40:00 / cg"
!
copyFiles
@@ -458,10 +455,9 @@
] ifFalse:[
OperatingSystem executeCommand:('(cd ' , stxLibDir , '/doc/online ; make links)').
].
- ^ true
"Created: / 17.7.1996 / 15:24:19 / cg"
- "Modified: / 25.2.1998 / 19:20:59 / cg"
+ "Modified: / 20.4.1998 / 15:40:11 / cg"
!
executeCommandAndShowOutput:cmd