--- 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