hg/stx-projects-smalltalk: smalltalk_r.rc@36927a04ace3 (annotated)

609 f0f51d4a0066 * empty log message * Claus Gittinger <cg@exept.de> parents: 490 diff changeset	1	"/ Encoding: iso8859-1
211 6c2f70f5784a * empty log message * Claus Gittinger <cg@exept.de> parents: 209 diff changeset	2	"/
209 22793de5d56e * empty log message * Claus Gittinger <cg@exept.de> parents: 167 diff changeset	3	"/ $Header$
22793de5d56e * empty log message * Claus Gittinger <cg@exept.de> parents: 167 diff changeset	4	"/
399 5a842f5d7196 * empty log message * Claus Gittinger <cg@exept.de> parents: 396 diff changeset	5	"/ MIMEType: application/x-smalltalk-source
5a842f5d7196 * empty log message * Claus Gittinger <cg@exept.de> parents: 396 diff changeset	6	"/
209 22793de5d56e * empty log message * Claus Gittinger <cg@exept.de> parents: 167 diff changeset	7	"/ ST/X startup configuration & command file:
22793de5d56e * empty log message * Claus Gittinger <cg@exept.de> parents: 167 diff changeset	8	"/
22793de5d56e * empty log message * Claus Gittinger <cg@exept.de> parents: 167 diff changeset	9	"/ restart configuration for smalltalk
22793de5d56e * empty log message * Claus Gittinger <cg@exept.de> parents: 167 diff changeset	10	"/
22793de5d56e * empty log message * Claus Gittinger <cg@exept.de> parents: 167 diff changeset	11	"/ this file plays the role of smalltalk.rc when an image
22793de5d56e * empty log message * Claus Gittinger <cg@exept.de> parents: 167 diff changeset	12	"/ is restarted. Usually, everything should stay as it was,
22793de5d56e * empty log message * Claus Gittinger <cg@exept.de> parents: 167 diff changeset	13	"/ except for things like keyboard mapping (if running on another display)
22793de5d56e * empty log message * Claus Gittinger <cg@exept.de> parents: 167 diff changeset	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 f73438a9350d Check deviceOpenErrorSignal Stefan Vogel <sv@exept.de> parents: 488 diff changeset	18	[
f73438a9350d Check deviceOpenErrorSignal Stefan Vogel <sv@exept.de> parents: 488 diff changeset	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 f73438a9350d Check deviceOpenErrorSignal Stefan Vogel <sv@exept.de> parents: 488 diff changeset	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 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

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Mon, 11 Jun 2018 11:15:47 +0100
branch	jv
changeset 1558	36927a04ace3
parent 1499	7aa84447bdf1
permissions	-rw-r--r--