hg/stx-projects-smalltalk: smalltalk_r.rc@6437a27b72fc (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.
f73438a9350d Check deviceOpenErrorSignal Stefan Vogel <sv@exept.de> parents: 488 diff changeset	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 0cb137a77319 Initial revision claus parents: diff changeset	28
167 b1b75bc122f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 160 diff changeset	29	"/
b1b75bc122f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 160 diff changeset	30	"/ this handles all variant display stuff
b1b75bc122f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 160 diff changeset	31	"/ (i.e. things which might change, when DISPLAY is set different)
b1b75bc122f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 160 diff changeset	32	"/
16 db5d473df9f0 * empty log message * claus parents: 7 diff changeset	33	Smalltalk fileIn:'display.rc'.
db5d473df9f0 * empty log message * claus parents: 7 diff changeset	34
167 b1b75bc122f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 160 diff changeset	35	"/
b1b75bc122f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 160 diff changeset	36	"/ this defines stuff relating to the machine we are running on
b1b75bc122f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 160 diff changeset	37	"/ (which may also be different after a snapIn)
b1b75bc122f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 160 diff changeset	38	"/
16 db5d473df9f0 * empty log message * claus parents: 7 diff changeset	39	Smalltalk fileIn:'host.rc'.
160 842c808f5cf5 * empty log message * Claus Gittinger <cg@exept.de> parents: 121 diff changeset	40
167 b1b75bc122f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 160 diff changeset	41	"/
b1b75bc122f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 160 diff changeset	42	"/ if the image was saved with the dynamic compiler turned on,
b1b75bc122f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 160 diff changeset	43	"/ turn it on again.
b1b75bc122f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 160 diff changeset	44	"/ If you encounter any problems with it, remove the line below.
b1b75bc122f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 160 diff changeset	45	"/
b1b75bc122f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 160 diff changeset	46	ObjectMemory reEnableJustInTimeCompilation.
458 d27d5454b222 * empty log message * Claus Gittinger <cg@exept.de> parents: 399 diff changeset	47	ObjectMemory oldSpaceCompressLimit:0. "/ temporary kludge

author	Claus Gittinger <cg@exept.de>
	Sun, 19 Jan 2020 16:28:21 +0100
changeset 1620	6437a27b72fc
parent 609	f0f51d4a0066
child 1499	7aa84447bdf1
permissions	-rw-r--r--