author | Claus Gittinger <cg@exept.de> |
Tue, 17 Jun 2003 16:43:40 +0200 | |
changeset 546 | 022c3bb1113b |
parent 490 | f73438a9350d |
child 609 | f0f51d4a0066 |
permissions | -rw-r--r-- |
211 | 1 |
"/ |
209 | 2 |
"/ $Header$ |
3 |
"/ |
|
399 | 4 |
"/ MIMEType: application/x-smalltalk-source |
5 |
"/ |
|
209 | 6 |
"/ ST/X startup configuration & command file: |
7 |
"/ |
|
8 |
"/ restart configuration for smalltalk |
|
9 |
"/ |
|
10 |
"/ this file plays the role of smalltalk.rc when an image |
|
11 |
"/ is restarted. Usually, everything should stay as it was, |
|
12 |
"/ except for things like keyboard mapping (if running on another display) |
|
13 |
"/ |
|
488
521e2d58f050
Changed workstation initialization.
Stefan Vogel <sv@exept.de>
parents:
458
diff
changeset
|
14 |
|
521e2d58f050
Changed workstation initialization.
Stefan Vogel <sv@exept.de>
parents:
458
diff
changeset
|
15 |
"/ first, restart the Display connection |
521e2d58f050
Changed workstation initialization.
Stefan Vogel <sv@exept.de>
parents:
458
diff
changeset
|
16 |
Display notNil ifTrue:[ |
490 | 17 |
[ |
18 |
Display reinitializeFor:Screen defaultDisplayName. |
|
19 |
] on:Screen deviceOpenErrorSignal do:[ |
|
488
521e2d58f050
Changed workstation initialization.
Stefan Vogel <sv@exept.de>
parents:
458
diff
changeset
|
20 |
'smalltalk_r.rc [error]: Cannot restart connection to: ' errorPrint. |
521e2d58f050
Changed workstation initialization.
Stefan Vogel <sv@exept.de>
parents:
458
diff
changeset
|
21 |
Screen defaultDisplayName errorPrintCR. |
521e2d58f050
Changed workstation initialization.
Stefan Vogel <sv@exept.de>
parents:
458
diff
changeset
|
22 |
Smalltalk exit. |
521e2d58f050
Changed workstation initialization.
Stefan Vogel <sv@exept.de>
parents:
458
diff
changeset
|
23 |
]. |
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 |
"/ Tell smalltalk, that the display may be used now. |
521e2d58f050
Changed workstation initialization.
Stefan Vogel <sv@exept.de>
parents:
458
diff
changeset
|
26 |
Smalltalk displayInitializationDone. |
0 | 27 |
|
167 | 28 |
"/ |
29 |
"/ this handles all variant display stuff |
|
30 |
"/ (i.e. things which might change, when DISPLAY is set different) |
|
31 |
"/ |
|
16 | 32 |
Smalltalk fileIn:'display.rc'. |
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 |
160 | 47 |