smalltalk_r.rc
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--
*** empty log message ***
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
211
6c2f70f5784a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 209
diff changeset
     1
"/
209
22793de5d56e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 167
diff changeset
     2
"/ $Header$
22793de5d56e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 167
diff changeset
     3
"/
399
5a842f5d7196 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 396
diff changeset
     4
"/ MIMEType: application/x-smalltalk-source
5a842f5d7196 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 396
diff changeset
     5
"/
209
22793de5d56e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 167
diff changeset
     6
"/ ST/X startup configuration & command file:
22793de5d56e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 167
diff changeset
     7
"/
22793de5d56e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 167
diff changeset
     8
"/ restart configuration for smalltalk
22793de5d56e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 167
diff changeset
     9
"/
22793de5d56e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 167
diff changeset
    10
"/ this file plays the role of smalltalk.rc when an image
22793de5d56e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 167
diff changeset
    11
"/ is restarted. Usually, everything should stay as it was,
22793de5d56e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 167
diff changeset
    12
"/ except for things like keyboard mapping (if running on another display)
22793de5d56e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 167
diff changeset
    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
f73438a9350d Check deviceOpenErrorSignal
Stefan Vogel <sv@exept.de>
parents: 488
diff changeset
    17
    [
f73438a9350d Check deviceOpenErrorSignal
Stefan Vogel <sv@exept.de>
parents: 488
diff changeset
    18
	Display reinitializeFor:Screen defaultDisplayName.
f73438a9350d Check deviceOpenErrorSignal
Stefan Vogel <sv@exept.de>
parents: 488
diff changeset
    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
0cb137a77319 Initial revision
claus
parents:
diff changeset
    27
167
b1b75bc122f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 160
diff changeset
    28
"/
b1b75bc122f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 160
diff changeset
    29
"/ this handles all variant display stuff
b1b75bc122f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 160
diff changeset
    30
"/ (i.e. things which might change, when DISPLAY is set different)
b1b75bc122f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 160
diff changeset
    31
"/
16
db5d473df9f0 *** empty log message ***
claus
parents: 7
diff changeset
    32
Smalltalk fileIn:'display.rc'.
db5d473df9f0 *** empty log message ***
claus
parents: 7
diff changeset
    33
167
b1b75bc122f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 160
diff changeset
    34
"/
b1b75bc122f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 160
diff changeset
    35
"/ this defines stuff relating to the machine we are running on
b1b75bc122f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 160
diff changeset
    36
"/ (which may also be different after a snapIn)
b1b75bc122f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 160
diff changeset
    37
"/
16
db5d473df9f0 *** empty log message ***
claus
parents: 7
diff changeset
    38
Smalltalk fileIn:'host.rc'.
160
842c808f5cf5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 121
diff changeset
    39
167
b1b75bc122f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 160
diff changeset
    40
"/
b1b75bc122f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 160
diff changeset
    41
"/ if the image was saved with the dynamic compiler turned on,
b1b75bc122f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 160
diff changeset
    42
"/ turn it on again.
b1b75bc122f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 160
diff changeset
    43
"/ If you encounter any problems with it, remove the line below.
b1b75bc122f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 160
diff changeset
    44
"/
b1b75bc122f3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 160
diff changeset
    45
ObjectMemory reEnableJustInTimeCompilation.
458
d27d5454b222 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 399
diff changeset
    46
ObjectMemory oldSpaceCompressLimit:0.   "/ temporary kludge
160
842c808f5cf5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 121
diff changeset
    47