--- a/STXInstaller.st Mon May 31 14:36:01 1999 +0200
+++ b/STXInstaller.st Mon May 31 15:31:28 1999 +0200
@@ -165,10 +165,13 @@
dirsToMake add:(stxLibDir asFilename constructString:'binary').
dirsToMake add:(stxLibDir asFilename constructString:'bitmaps').
dirsToMake add:(stxLibDir asFilename constructString:'goodies').
+ installSourceFiles ifTrue:[
+ dirsToMake add:(stxLibDir asFilename constructString:'source').
+ ]
].
^ dirsToMake
- "Modified: / 25.2.1998 / 17:15:19 / cg"
+ "Modified: / 31.5.1999 / 15:20:45 / cg"
!
listOfOptionalPackages
@@ -337,21 +340,21 @@
installSourceFiles ifTrue:[
fileSpec := fileSpec , #(
( 'projects\smalltalk\source' #lib nil false )
- ( 'projects\smalltalk\libbasic\*.st' #lib 'source\libbasic' false )
- ( 'projects\smalltalk\libbasic2\*.st' #lib 'source\libbasic2' false )
- ( 'projects\smalltalk\libbasic3\*.st' #lib 'source\libbasic3' false )
- ( 'projects\smalltalk\libcomp\*.st' #lib 'source\libcomp' false )
- ( 'projects\smalltalk\libview\*.st' #lib 'source\libview' false )
- ( 'projects\smalltalk\libview2\*.st' #lib 'source\libview2' false )
- ( 'projects\smalltalk\libwidg\*.st' #lib 'source\libwidg' false )
- ( 'projects\smalltalk\libwidg2\*.st' #lib 'source\libwidg2' false )
- ( 'projects\smalltalk\libwidg3\*.st' #lib 'source\libwidg3' false )
- ( 'projects\smalltalk\libtool\*.st' #lib 'source\libtool' false )
- ( 'projects\smalltalk\libtool2\*.st' #lib 'source\libtool2' false )
- ( 'projects\smalltalk\libui\*.st' #lib 'source\libui' false )
- ( 'projects\smalltalk\libhtml\*.st' #lib 'source\libhtml' false )
- ( 'projects\smalltalk\libodbc\*.st' #lib 'source\libodbc' false )
- ( 'projects\smalltalk\libopengl\*.st' #lib 'source\libopengl' false )
+ ( 'libbasic\*.st' #lib 'source\libbasic' false )
+ ( 'libbasic2\*.st' #lib 'source\libbasic2' false )
+ ( 'libbasic3\*.st' #lib 'source\libbasic3' false )
+ ( 'libcomp\*.st' #lib 'source\libcomp' false )
+ ( 'libview\*.st' #lib 'source\libview' false )
+ ( 'libview2\*.st' #lib 'source\libview2' false )
+ ( 'libwidg\*.st' #lib 'source\libwidg' false )
+ ( 'libwidg2\*.st' #lib 'source\libwidg2' false )
+ ( 'libwidg3\*.st' #lib 'source\libwidg3' false )
+ ( 'libtool\*.st' #lib 'source\libtool' false )
+ ( 'libtool2\*.st' #lib 'source\libtool2' false )
+ ( 'libui\*.st' #lib 'source\libui' false )
+ ( 'libhtml\*.st' #lib 'source\libhtml' false )
+ ( 'libodbc\*.st' #lib 'source\libodbc' false )
+ ( 'libopengl\*.st' #lib 'source\libopengl' false )
).
].
@@ -374,7 +377,7 @@
^ fileSpec
"Created: / 2.5.1999 / 13:23:06 / cg"
- "Modified: / 31.5.1999 / 14:29:20 / cg"
+ "Modified: / 31.5.1999 / 15:14:16 / cg"
!
xxspecOfFilesToCopy
@@ -666,12 +669,38 @@
"Modified: 22.5.1997 / 15:06:41 / cg"
!
+createRegistryEntries
+ |release msg k|
+
+ msg := (resources array:#('ST/X Installation' '' 'creating registry entries' '' '' '')) asStringCollection.
+ actionTextHolder value:nil.
+ actionTextHolder value:msg.
+
+ commandTraceView showCR:(resources string:'creating registry entries...').
+ commandTraceView endEntry.
+
+ release := self smalltalkRelease.
+
+ k := Win32OperatingSystem::RegistryEntry key:'HKEY_LOCAL_MACHINE\Software'.
+ k := k createSubKeyNamed:'eXept'.
+ k := k createSubKeyNamed:'Smalltalk/X'.
+ k valueNamed:'CurrentVersion' put:release.
+
+ k := k createSubKeyNamed:release.
+ k valueNamed:'LibDir' put:stxLibDir.
+ k valueNamed:'BinDir' put:stxBinDir.
+
+ "Modified: / 31.5.1999 / 15:24:41 / cg"
+!
+
createSymbolicLinks
|msg dirsToMake numDirs nDone|
OperatingSystem isUNIXlike ifFalse:[^ self].
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 ...').
commandTraceView endEntry.
@@ -682,7 +711,7 @@
].
"Created: / 17.7.1996 / 15:24:19 / cg"
- "Modified: / 31.5.1999 / 13:26:42 / cg"
+ "Modified: / 31.5.1999 / 14:46:36 / cg"
!
executeCommandAndShowOutput:cmd
@@ -1404,6 +1433,9 @@
].
self changeWritability.
self createSymbolicLinks.
+ OperatingSystem isMSWINDOWSlike ifTrue:[
+ self createRegistryEntries.
+ ].
progressValue value:100.
@@ -1447,7 +1479,7 @@
"
"Created: / 17.7.1996 / 15:11:27 / cg"
- "Modified: / 31.5.1999 / 14:05:38 / cg"
+ "Modified: / 31.5.1999 / 14:45:12 / cg"
!
open