Mercurial Mercurial > hg > stx-libtool2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Mon, 16 Sep 1996 09:58:12 +0200
changeset 19 504c3ad987d1
parent 18 fc38d7afffe3
child 20 0cc89097fd50
checkin from browser
STXInstaller.st file | annotate | diff | comparison | revisions 
--- 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').
hg/stx-libtool2