equal
deleted
inserted
replaced
10 * DONT add site specific things here - use your own h_xxx.rc file instead |
10 * DONT add site specific things here - use your own h_xxx.rc file instead |
11 * where xxx stands for your hostname(s) |
11 * where xxx stands for your hostname(s) |
12 *" |
12 *" |
13 |
13 |
14 "/ look in registry for LibDir ... |
14 "/ look in registry for LibDir ... |
15 |k rel curr| |
15 |k rel curr libDir| |
16 |
16 |
17 rel := Smalltalk versionString. |
17 rel := Smalltalk versionString. |
18 k := Win32OperatingSystem registryEntry key:('HKEY_LOCAL_MACHINE\Software\eXept\Smalltalk/X\',rel). |
18 k := Win32OperatingSystem registryEntry key:('HKEY_LOCAL_MACHINE\Software\eXept\Smalltalk/X\',rel). |
19 k isNil ifTrue:[ |
19 k isNil ifTrue:[ |
20 k := Win32OperatingSystem registryEntry key:'HKEY_LOCAL_MACHINE\Software\eXept\Smalltalk/X'. |
20 k := Win32OperatingSystem registryEntry key:'HKEY_LOCAL_MACHINE\Software\eXept\Smalltalk/X'. |