author | Claus Gittinger <cg@exept.de> |
Mon, 17 Sep 2018 16:09:24 +0200 | |
changeset 1573 | 1ca3df2d6317 |
parent 609 | f0f51d4a0066 |
child 1499 | 7aa84447bdf1 |
permissions | -rw-r--r-- |
609 | 1 |
"/ Encoding: iso8859-1 |
211 | 2 |
"/ |
209 | 3 |
"/ $Header$ |
4 |
"/ |
|
399 | 5 |
"/ MIMEType: application/x-smalltalk-source |
6 |
"/ |
|
209 | 7 |
"/ ST/X startup configuration & command file: |
8 |
"/ |
|
9 |
"/ restart configuration for smalltalk |
|
10 |
"/ |
|
11 |
"/ this file plays the role of smalltalk.rc when an image |
|
12 |
"/ is restarted. Usually, everything should stay as it was, |
|
13 |
"/ except for things like keyboard mapping (if running on another display) |
|
14 |
"/ |
|
488
521e2d58f050
Changed workstation initialization.
Stefan Vogel <sv@exept.de>
parents:
458
diff
changeset
|
15 |
|
521e2d58f050
Changed workstation initialization.
Stefan Vogel <sv@exept.de>
parents:
458
diff
changeset
|
16 |
"/ first, restart the Display connection |
521e2d58f050
Changed workstation initialization.
Stefan Vogel <sv@exept.de>
parents:
458
diff
changeset
|
17 |
Display notNil ifTrue:[ |
490 | 18 |
[ |
19 |
Display reinitializeFor:Screen defaultDisplayName. |
|
20 |
] on:Screen deviceOpenErrorSignal do:[ |
|
488
521e2d58f050
Changed workstation initialization.
Stefan Vogel <sv@exept.de>
parents:
458
diff
changeset
|
21 |
'smalltalk_r.rc [error]: Cannot restart connection to: ' errorPrint. |
521e2d58f050
Changed workstation initialization.
Stefan Vogel <sv@exept.de>
parents:
458
diff
changeset
|
22 |
Screen defaultDisplayName errorPrintCR. |
521e2d58f050
Changed workstation initialization.
Stefan Vogel <sv@exept.de>
parents:
458
diff
changeset
|
23 |
Smalltalk exit. |
521e2d58f050
Changed workstation initialization.
Stefan Vogel <sv@exept.de>
parents:
458
diff
changeset
|
24 |
]. |
521e2d58f050
Changed workstation initialization.
Stefan Vogel <sv@exept.de>
parents:
458
diff
changeset
|
25 |
]. |
521e2d58f050
Changed workstation initialization.
Stefan Vogel <sv@exept.de>
parents:
458
diff
changeset
|
26 |
"/ Tell smalltalk, that the display may be used now. |
521e2d58f050
Changed workstation initialization.
Stefan Vogel <sv@exept.de>
parents:
458
diff
changeset
|
27 |
Smalltalk displayInitializationDone. |
0 | 28 |
|
167 | 29 |
"/ |
30 |
"/ this handles all variant display stuff |
|
31 |
"/ (i.e. things which might change, when DISPLAY is set different) |
|
32 |
"/ |
|
16 | 33 |
Smalltalk fileIn:'display.rc'. |
34 |
||
167 | 35 |
"/ |
36 |
"/ this defines stuff relating to the machine we are running on |
|
37 |
"/ (which may also be different after a snapIn) |
|
38 |
"/ |
|
16 | 39 |
Smalltalk fileIn:'host.rc'. |
160 | 40 |
|
167 | 41 |
"/ |
42 |
"/ if the image was saved with the dynamic compiler turned on, |
|
43 |
"/ turn it on again. |
|
44 |
"/ If you encounter any problems with it, remove the line below. |
|
45 |
"/ |
|
46 |
ObjectMemory reEnableJustInTimeCompilation. |
|
458 | 47 |
ObjectMemory oldSpaceCompressLimit:0. "/ temporary kludge |