--- 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').