--- a/STXInstaller.st	Sat Oct 03 18:28:18 1998 +0200
+++ b/STXInstaller.st	Mon Oct 05 12:22:11 1998 +0200
@@ -2,7 +2,7 @@
 	instanceVariableNames:'stxLibDir stxLibBinDir stxBinDir installDocFiles
 		installSourceFiles installSTCFiles installGoodyFiles fullDir
 		actionPercentageHolder actionTextHolder commandTraceView
-		resources fullInstallation dfHolder copyProcess'
+		resources dfHolder copyProcess installWhat'
 	classVariableNames:'LastBinDir LastLibBinDir LastLibDir LastFullDir'
 	poolDictionaries:''
 	category:'eXept-tools'
@@ -122,7 +122,7 @@
     |dirsToMake|
 
     dirsToMake := OrderedCollection new.
-    fullInstallation ifTrue:[
+    installWhat == #full ifTrue:[
         dirsToMake add:fullDir.
     ] ifFalse:[
         dirsToMake add:stxBinDir.
@@ -265,7 +265,7 @@
 changeWritability
     |msg|
 
-    fullInstallation ifTrue:[
+    installWhat == #full ifTrue:[
         msg := (resources array:#('ST/X Installation' '' 'making target dir writable' '' '' '')) asStringCollection.
 
         commandTraceView showCR:(resources string:'making target dir writable ...').
@@ -282,7 +282,7 @@
 
      msg := (resources array:#('ST/X Installation' '' 'copying:' '' 'to:' '')) asStringCollection.
 
-    fullInstallation ifTrue:[
+    installWhat == #full ifTrue:[
         msg at:4 put:('    all from CD' asText allBold).
         msg at:6 put:'    ' , (fullDir asText allBold).
         actionTextHolder value:nil.
@@ -451,7 +451,7 @@
 
     commandTraceView showCR:(resources string:'setting up symbolic links in doc/online ...').
     commandTraceView endEntry.
-    fullInstallation ifTrue:[
+    installWhat == #full ifTrue:[
         OperatingSystem executeCommand:('(cd ' , fullDir , '/doc/online ; make links)').
     ] ifFalse:[
         OperatingSystem executeCommand:('(cd ' , stxLibDir , '/doc/online ; make links)').
@@ -579,7 +579,7 @@
 askForDestination
     "open a dialog to enter destination directories"
 
-    fullInstallation ifTrue:[
+    installWhat == #full ifTrue:[
         ^ self askForDestinationForFullInstallation
     ] ifFalse:[
         ^ self askForDestinationForPartialInstallation
@@ -909,13 +909,13 @@
 
     d addHelpButtonFor:'STXInstaller/installHelp.html';
       addAbortButton; 
-      addOkButton:(Button label:(resources string:'install full') action:[fullInstallation:=true]);
-      addOkButtonLabelled:(resources string:'install partial').
+      addOkButton:(Button label:(resources string:'full') action:[installWhat := #full]);
+      addOkButtonLabelled:(resources string:'partial').
     d extent:500@400.
 
     d allViewBackground:dark.
 
-    fullInstallation := false.
+    installWhat := #partial.
     d openAtCenter.
     d accepted ifTrue:[
         d destroy.
@@ -938,7 +938,7 @@
 
     |whichDir canOverWrite whatToDo box|
 
-    fullInstallation ifTrue:[
+    installWhat == #full ifTrue:[
         whichDir := fullDir.
         canOverWrite := false.
     ] ifFalse:[
@@ -1017,7 +1017,7 @@
     textView bottomInset:30.
     commandTraceView := textView scrolledView.
 
-    fullInstallation ifTrue:[
+    installWhat == #full ifTrue:[
         dirToMonitor := fullDir.
     ] ifFalse:[
         dirToMonitor := stxLibDir
@@ -1102,7 +1102,7 @@
                       actionPercentageHolder := progressValue.
                       actionTextHolder := currentAction.
 
-                      fullInstallation ifFalse:[
+                      installWhat == #full ifFalse:[
                             self outputInitialMessage.
                       ].
 
@@ -1174,7 +1174,7 @@
     shInfo := ''.
     cshInfo := ''.
 
-    fullInstallation ifTrue:[
+    installWhat == #full ifTrue:[
         msg := msg , 'You will now find a development directory hierarchy
 in ''' , fullDir asText allBold , '''.