Issue #94: Nuked `h_win32.rc` jv
authorJan Vrany <jan.vrany@fit.cvut.cz>
Mon, 04 Jul 2016 23:46:37 +0100
branchjv
changeset 1449 92159a804e50
parent 1448 17b9d6d3d553
child 1450 58a390b93aa3
Issue #94: Nuked `h_win32.rc` ...now obsolete. Both package path setup and compiler flags setup has been moved to classes.
h_win32.rc
--- a/h_win32.rc	Mon Jul 04 23:25:38 2016 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,39 +0,0 @@
-"*
- * Encoding: iso8859-1
- *
- * $Header$
- *
- * MIMEType: application/x-smalltalk-source
- *
- * ST/X startup configuration file - for win95, win98 and winNT OS.
- *
- * DONT add site specific things here - use your own h_xxx.rc file instead
- * where xxx stands for your hostname(s)
- *"
-!
-"/ look in registry for LibDir ...
-|k rel curr libDir|
-
-rel := Smalltalk versionString.
-k := Win32OperatingSystem registryEntry key:('HKEY_LOCAL_MACHINE\Software\eXept\Smalltalk/X\',rel).
-k isNil ifTrue:[
-    k := Win32OperatingSystem registryEntry key:'HKEY_LOCAL_MACHINE\Software\eXept\Smalltalk/X'.
-    k notNil ifTrue:[
-	curr := k valueNamed:'CurrentVersion'.
-	curr isString ifTrue:[
-	    k close.
-	    k := Win32OperatingSystem registryEntry key:('HKEY_LOCAL_MACHINE\Software\eXept\Smalltalk/X\',curr).
-	]
-    ]
-].
-k notNil ifTrue:[
-    libDir := k valueNamed:'LibDir'.
-    (libDir notNil and:[libDir asFilename exists]) ifTrue:[
-	(Smalltalk systemPath includes:(libDir asFilename pathName)) ifFalse:[
-	    Smalltalk systemPath addFirst:(libDir asFilename pathName).
-	    Smalltalk flushPathCaches
-	]
-    ].
-    k close.
-].
-!
\ No newline at end of file