# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 928167806 -7200
# Node ID 66190ee44a6acc6205c2fc3ea867aa1a811c65a3
# Parent  77c59731e289d775867318fc61f97776cee1eb07
checkin from browser

diff -r 77c59731e289 -r 66190ee44a6a STXInstaller.st
--- a/STXInstaller.st	Mon May 31 17:49:16 1999 +0200
+++ b/STXInstaller.st	Mon May 31 18:23:26 1999 +0200
@@ -144,7 +144,7 @@
 !
 
 directoriesToMake
-    |dirsToMake|
+    |dirsToMake docDir docOnlineDir|
 
     dirsToMake := OrderedCollection new.
     installWhat == #full ifTrue:[
@@ -155,11 +155,11 @@
         dirsToMake add:stxLibBinDir.
         dirsToMake add:(stxLibDir asFilename constructString:'configurations').
         dirsToMake add:(stxLibDir asFilename constructString:'doc').
-        dirsToMake add:((stxLibDir asFilename construct:'doc') constructString:'online').
-        dirsToMake add:(((stxLibDir asFilename construct:'doc') construct:'online') constructString:'english').
-        dirsToMake add:(((stxLibDir asFilename construct:'doc') construct:'online') constructString:'german').
-        dirsToMake add:(((stxLibDir asFilename construct:'doc') construct:'online') constructString:'french').
-        dirsToMake add:(((stxLibDir asFilename construct:'doc') construct:'online') constructString:'italian').
+        dirsToMake add:((docDir := stxLibDir asFilename construct:'doc') constructString:'online').
+        dirsToMake add:((docOnlineDir := docDir construct:'online') constructString:'english').
+        dirsToMake add:(docOnlineDir constructString:'german').
+        dirsToMake add:(docOnlineDir constructString:'french').
+        dirsToMake add:(docOnlineDir constructString:'italian').
         dirsToMake add:(stxLibDir asFilename constructString:'include').
         dirsToMake add:(stxLibDir asFilename constructString:'resources').
         dirsToMake add:(stxLibDir asFilename constructString:'binary').
@@ -173,7 +173,7 @@
     ].
     ^ dirsToMake
 
-    "Modified: / 31.5.1999 / 17:42:19 / cg"
+    "Modified: / 31.5.1999 / 17:52:03 / cg"
 !
 
 listOfOptionalPackages
@@ -612,7 +612,7 @@
     "
 
     "Created: / 17.7.1996 / 15:16:20 / cg"
-    "Modified: / 31.5.1999 / 17:29:19 / cg"
+    "Modified: / 31.5.1999 / 18:07:33 / cg"
 !
 
 createDirectories