# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 842860692 -7200
# Node ID 504c3ad987d139013f1b414a573f72abb2e51ba0
# Parent  fc38d7afffe3dd962e99a07c778e8102386f4d4a
checkin from browser

diff -r fc38d7afffe3 -r 504c3ad987d1 STXInstaller.st
--- a/STXInstaller.st	Fri Sep 13 11:23:38 1996 +0200
+++ b/STXInstaller.st	Mon Sep 16 09:58:12 1996 +0200
@@ -88,6 +88,8 @@
     dirsToMake add:(stxLibDir asFilename constructString:'doc/online').
     dirsToMake add:(stxLibDir asFilename constructString:'doc/online/english').
     dirsToMake add:(stxLibDir asFilename constructString:'doc/online/german').
+    dirsToMake add:(stxLibDir asFilename constructString:'doc/online/french').
+    dirsToMake add:(stxLibDir asFilename constructString:'doc/online/italian').
     dirsToMake add:(stxLibDir asFilename constructString:'include').
     dirsToMake add:(stxLibDir asFilename constructString:'resources').
     dirsToMake add:(stxLibDir asFilename constructString:'binary').
@@ -110,7 +112,7 @@
                 ( 'projects/smalltalk/resources'        #lib     nil                  true  '644' )
                 ( 'projects/smalltalk/lib'              #lib     nil                  true  '644' )
                 ( 'doc/online/german/LICENCE.STX.html'  #lib     'doc/online/german'  true  '644' )
-                ( 'doc/online/english/LICENCE.STX.html' #lib     'doc/online/english' true  '644' )
+"/                ( 'doc/online/english/LICENCE.STX.html' #lib     'doc/online/english' true  '644' )
     ).
 
     installDocFiles ifTrue:[
@@ -323,6 +325,18 @@
 
     "Created: 17.7.1996 / 15:24:19 / cg"
     "Modified: 18.7.1996 / 22:18:38 / cg"
+!
+
+createSymbolicLinks
+    |msg dirsToMake numDirs nDone|
+
+    msg := (resources array:#('ST/X Installation' '' 'creating symbolic links' '' '' '')) asStringCollection.
+
+    OperatingSystem executeCommand:('cd stxLibDir/doc/online ; make links').
+    ^ true
+
+    "Created: 17.7.1996 / 15:24:19 / cg"
+    "Modified: 18.7.1996 / 22:18:38 / cg"
 ! !
 
 !STXInstaller methodsFor:'startup'!
@@ -557,6 +571,8 @@
                   (self createDirectories) ifTrue:[
                       ok := self copyFiles
                   ].
+                  self createSymbolicLinks.
+
                   progressValue value:100.
 
                   progressView topView abortButton label:(resources string:'continue').