author | Jan Vrany <jan.vrany@fit.cvut.cz> |
Mon, 24 Sep 2018 20:52:34 +0100 | |
branch | jv |
changeset 1579 | e6c2667b4692 |
parent 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. |
|
1499
7aa84447bdf1
Do not reinitialize the display if image was saved headless.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
609
diff
changeset
|
20 |
"/ Tell smalltalk, that the display may be used now. |
7aa84447bdf1
Do not reinitialize the display if image was saved headless.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
609
diff
changeset
|
21 |
Smalltalk displayInitializationDone. |
7aa84447bdf1
Do not reinitialize the display if image was saved headless.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
609
diff
changeset
|
22 |
"/ |
7aa84447bdf1
Do not reinitialize the display if image was saved headless.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
609
diff
changeset
|
23 |
"/ this handles all variant display stuff |
7aa84447bdf1
Do not reinitialize the display if image was saved headless.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
609
diff
changeset
|
24 |
"/ (i.e. things which might change, when DISPLAY is set different) |
7aa84447bdf1
Do not reinitialize the display if image was saved headless.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
609
diff
changeset
|
25 |
"/ |
7aa84447bdf1
Do not reinitialize the display if image was saved headless.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
609
diff
changeset
|
26 |
Smalltalk fileIn:'display.rc'. |
490 | 27 |
] on:Screen deviceOpenErrorSignal do:[ |
488
521e2d58f050
Changed workstation initialization.
Stefan Vogel <sv@exept.de>
parents:
458
diff
changeset
|
28 |
'smalltalk_r.rc [error]: Cannot restart connection to: ' errorPrint. |
521e2d58f050
Changed workstation initialization.
Stefan Vogel <sv@exept.de>
parents:
458
diff
changeset
|
29 |
Screen defaultDisplayName errorPrintCR. |
521e2d58f050
Changed workstation initialization.
Stefan Vogel <sv@exept.de>
parents:
458
diff
changeset
|
30 |
Smalltalk exit. |
521e2d58f050
Changed workstation initialization.
Stefan Vogel <sv@exept.de>
parents:
458
diff
changeset
|
31 |
]. |
521e2d58f050
Changed workstation initialization.
Stefan Vogel <sv@exept.de>
parents:
458
diff
changeset
|
32 |
]. |
16 | 33 |
|
167 | 34 |
"/ |
35 |
"/ this defines stuff relating to the machine we are running on |
|
36 |
"/ (which may also be different after a snapIn) |
|
37 |
"/ |
|
16 | 38 |
Smalltalk fileIn:'host.rc'. |
160 | 39 |
|
167 | 40 |
"/ |
41 |
"/ if the image was saved with the dynamic compiler turned on, |
|
42 |
"/ turn it on again. |
|
43 |
"/ If you encounter any problems with it, remove the line below. |
|
44 |
"/ |
|
45 |
ObjectMemory reEnableJustInTimeCompilation. |
|
458 | 46 |
ObjectMemory oldSpaceCompressLimit:0. "/ temporary kludge |