STXInstaller.st
changeset 790 79bc027907ee
parent 682 9fcd010d8fd3
child 791 108f933f9385
equal deleted inserted replaced
789:ee325d04f292 790:79bc027907ee
   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