STXInstaller.st
changeset 25 42ee3e7ced09
parent 24 2b61cca30b01
child 26 6975669b213b
equal deleted inserted replaced
24:2b61cca30b01 25:42ee3e7ced09
     1 'From Smalltalk/X, Version:2.10.9 on 20-sep-1996 at 11:23:45'                   !
       
     2 
       
     3 Object subclass:#STXInstaller
     1 Object subclass:#STXInstaller
     4 	instanceVariableNames:'stxLibDir stxLibBinDir stxBinDir installDocFiles
     2 	instanceVariableNames:'stxLibDir stxLibBinDir stxBinDir installDocFiles
     5 		installSourceFiles installSTCFiles installGoodyFiles
     3 		installSourceFiles installSTCFiles installGoodyFiles
     6 		actionPercentageHolder actionTextHolder commandTraceView
     4 		actionPercentageHolder actionTextHolder commandTraceView
     7 		resources'
     5 		resources'
   383 
   381 
   384     [self askForDestination] whileTrue:[
   382     [self askForDestination] whileTrue:[
   385         self checkForExistingInstallationAndConfirm ifFalse:[
   383         self checkForExistingInstallationAndConfirm ifFalse:[
   386             ^ self
   384             ^ self
   387         ].
   385         ].
       
   386         self preInstall.
   388         self doInstall ifTrue:[
   387         self doInstall ifTrue:[
   389             self postInstall.
   388             self postInstall.
   390             ^ self
   389             ^ self
   391         ].
   390         ].
   392         (self confirm:(resources string:'installation failed or aborted - retry ?'))
   391         (self confirm:(resources string:'installation failed or aborted - retry ?'))
   713     "
   712     "
   714      STXInstaller new postInstall
   713      STXInstaller new postInstall
   715     "
   714     "
   716 
   715 
   717     "Modified: 18.7.1996 / 22:10:42 / cg"
   716     "Modified: 18.7.1996 / 22:10:42 / cg"
       
   717 !
       
   718 
       
   719 preInstall
       
   720     "clobber the doc directory, to avoid copying cyclic symbolic links"
       
   721 
       
   722     |f|
       
   723 
       
   724     f := '../../doc/online/english/german' asFilename.
       
   725     f exists ifTrue:[
       
   726         f isSymbolicLink ifTrue:[
       
   727             OperatingSystem executeCommand:'(cd ../../doc/online; make clobber) >/dev/null 2>/dev/null'
       
   728         ]
       
   729     ]
       
   730 
       
   731     "
       
   732      STXInstaller new preInstall
       
   733     "
       
   734 
       
   735     "Modified: 18.7.1996 / 22:10:42 / cg"
   718 ! !
   736 ! !
   719 
   737 
   720 !STXInstaller  class methodsFor:'documentation'!
   738 !STXInstaller  class methodsFor:'documentation'!
   721 
   739 
   722 version
   740 version