--- a/STXInstaller.st	Mon Feb 28 15:10:45 2000 +0100
+++ b/STXInstaller.st	Thu Mar 02 12:47:51 2000 +0100
@@ -644,7 +644,7 @@
 !
 
 createSymbolicLinks
-    |msg dirsToMake numDirs nDone|
+    |msg dirsToMake numDirs nDone languages cmd|
 
     OperatingSystem isUNIXlike ifFalse:[^ self].
 
@@ -652,12 +652,11 @@
     actionTextHolder value:nil.
     actionTextHolder value:msg.
 
-    commandTraceView showCR:(resources string:'setting up symbolic links in doc/online ...'); endEntry.
-
     installWhat == #full ifTrue:[
+        commandTraceView showCR:(resources string:'setting up symbolic links in doc ...'); endEntry.
         OperatingSystem executeCommand:('(cd ' , fullDir , '/doc/online ; make links)').
     ] ifFalse:[
-        OperatingSystem executeCommand:('(cd ' , stxLibDir , '/doc/online ; make links)').
+"/        OperatingSystem executeCommand:('(cd ' , stxLibDir , '/doc/online ; make links)').
 
         commandTraceView showCR:(resources string:'setting up symbolic links in lib ...'); endEntry.
 
@@ -684,6 +683,44 @@
         ].
     ].
 
+    installDocFiles ifTrue:[
+        msg := (resources array:#('ST/X Installation' '' 'creating symbolic links' '' '' '')) asStringCollection.
+        actionTextHolder value:nil.
+        actionTextHolder value:msg.
+
+        commandTraceView showCR:(resources string:'setting up symbolic links in doc/online ...'); endEntry.
+
+        languages := #(
+                        'english'
+                        'german'
+                        'french'
+                        'italian'
+                        'spanish'
+                        'japanese'
+                      ).
+        languages := languages select:[:l | (stxDocDir , '/online/' , l) asFilename exists].
+
+        languages do:[:thisLang |
+            |langDir|
+
+            langDir := stxDocDir , '/online/' , thisLang.
+            languages do:[:otherLang |
+                otherLang ~= thisLang ifTrue:[
+                    cmd := '(cd ' , langDir , ' ; ln -s ../' , otherLang , ' .)'.
+                    commandTraceView showCR:cmd; endEntry.
+                    OperatingSystem executeCommand:cmd.
+                ]
+            ].
+
+            cmd := '(cd ' , langDir , ' ; ln -s ../icons .)'.
+            commandTraceView showCR:cmd; endEntry.
+             OperatingSystem executeCommand:cmd.
+
+            cmd := '(cd ' , langDir , ' ; ln -s ../pictures .)'.
+            commandTraceView showCR:cmd; endEntry.
+             OperatingSystem executeCommand:cmd.
+        ]
+    ]
     "Created: / 17.7.1996 / 15:24:19 / cg"
     "Modified: / 31.5.1999 / 14:46:36 / cg"
 !
@@ -860,6 +897,32 @@
 
     "Created: / 31.5.1999 / 13:05:09 / cg"
     "Modified: / 23.12.1999 / 23:36:53 / cg"
+!
+
+removeMakefilesInDoc
+    |cmd msg|
+
+    OperatingSystem isUNIXlike ifFalse:[ ^ self ].
+
+    installDocFiles ifTrue:[
+        msg := (resources array:#('ST/X Installation' '' 'removing useless makefiles in doc' '' '' '')) asStringCollection.
+        actionTextHolder value:nil.
+        actionTextHolder value:msg.
+
+        commandTraceView showCR:(resources string:'removing useless makefiles in doc ...'); endEntry.
+
+        #(
+            'Make.proto'
+            'nt.mak'
+            'vms.mak'
+            'Makefile'
+        ) do:[:toRemove |
+            cmd := '(cd ' , stxDocDir , ' ; find . -name ''' , toRemove , ''' -exec rm {} \; )'.
+
+            commandTraceView showCR:cmd; endEntry.
+             OperatingSystem executeCommand:cmd.
+        ]
+    ]
 ! !
 
 !STXInstaller methodsFor:'startup'!
@@ -1481,6 +1544,8 @@
                       ].
                       self changeWritability.
                       self createSymbolicLinks.
+                      self removeMakefilesInDoc.
+
                       OperatingSystem isMSWINDOWSlike ifTrue:[
                           self createRegistryEntries.
                       ].