equal
deleted
inserted
replaced
259 |
259 |
260 "Modified: 8.8.1997 / 18:39:06 / cg" |
260 "Modified: 8.8.1997 / 18:39:06 / cg" |
261 ! ! |
261 ! ! |
262 |
262 |
263 !STXInstaller methodsFor:'installing'! |
263 !STXInstaller methodsFor:'installing'! |
|
264 |
|
265 changeWritability |
|
266 |msg dirsToMake numDirs nDone| |
|
267 |
|
268 msg := (resources array:#('ST/X Installation' '' 'making target dir writable' '' '' '')) asStringCollection. |
|
269 |
|
270 commandTraceView showCR:(resources string:'making target dir writable ...'). |
|
271 commandTraceView endEntry. |
|
272 fullInstallation ifTrue:[ |
|
273 OperatingSystem executeCommand:('(cd ' , fullDir , ' ; find . -exec chmod u+w {} \;)'). |
|
274 ] ifFalse:[ |
|
275 OperatingSystem executeCommand:('(cd ' , stxLibDir , ' ; find . -exec chmod u+w {} \;)'). |
|
276 ]. |
|
277 ^ true |
|
278 |
|
279 "Modified: / 25.2.1998 / 19:20:59 / cg" |
|
280 "Created: / 20.4.1998 / 15:37:52 / cg" |
|
281 ! |
264 |
282 |
265 copyFiles |
283 copyFiles |
266 |msg fileSpec filesToCopy numFiles nDone cmd| |
284 |msg fileSpec filesToCopy numFiles nDone cmd| |
267 |
285 |
268 msg := (resources array:#('ST/X Installation' '' 'copying:' '' 'to:' '')) asStringCollection. |
286 msg := (resources array:#('ST/X Installation' '' 'copying:' '' 'to:' '')) asStringCollection. |
1093 |
1111 |
1094 (self createDirectories) ifTrue:[ |
1112 (self createDirectories) ifTrue:[ |
1095 doDfMonitoring := true. |
1113 doDfMonitoring := true. |
1096 ok := self copyFiles |
1114 ok := self copyFiles |
1097 ]. |
1115 ]. |
|
1116 self changeWritability. |
1098 self createSymbolicLinks. |
1117 self createSymbolicLinks. |
1099 |
1118 |
1100 progressValue value:100. |
1119 progressValue value:100. |
1101 |
1120 |
1102 progressView topView abortButton label:(resources string:'continue'). |
1121 progressView topView abortButton label:(resources string:'continue'). |
1132 " |
1151 " |
1133 STXInstaller open |
1152 STXInstaller open |
1134 " |
1153 " |
1135 |
1154 |
1136 "Created: / 17.7.1996 / 15:11:27 / cg" |
1155 "Created: / 17.7.1996 / 15:11:27 / cg" |
1137 "Modified: / 25.2.1998 / 22:57:10 / cg" |
1156 "Modified: / 20.4.1998 / 15:36:40 / cg" |
1138 ! |
1157 ! |
1139 |
1158 |
1140 open |
1159 open |
1141 self askAndInstall. |
1160 self askAndInstall. |
1142 |
1161 |