hg/stx-projects-smalltalk: stxapp.rc@2727a9f4ac36 (annotated)

609 f0f51d4a0066 * empty log message * Claus Gittinger <cg@exept.de> parents: 488 diff changeset	1	"/ Encoding: iso8859-1
396 a17124ca4b63 * empty log message * Claus Gittinger <cg@exept.de> parents: 209 diff changeset	2	"/
83 d1c3a873a376 sample standAlone startup.rc file Claus Gittinger <cg@exept.de> parents: diff changeset	3	"/ $Header$
d1c3a873a376 sample standAlone startup.rc file Claus Gittinger <cg@exept.de> parents: 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: 83 diff changeset	7	"/ ST/X startup command file:
83 d1c3a873a376 sample standAlone startup.rc file Claus Gittinger <cg@exept.de> parents: diff changeset	8	"/
d1c3a873a376 sample standAlone startup.rc file Claus Gittinger <cg@exept.de> parents: diff changeset	9	"/ example for a very simple startup file for standAlone applications
d1c3a873a376 sample standAlone startup.rc file Claus Gittinger <cg@exept.de> parents: diff changeset	10	"/ this is read for standAlone apps, if no <commandName>.rc is found.
d1c3a873a376 sample standAlone startup.rc file Claus Gittinger <cg@exept.de> parents: diff changeset	11	"/
488 521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 399 diff changeset	12	"/ without an stxapp.rc, no display is opened and no setup of keyboardMap or viewStyle
83 d1c3a873a376 sample standAlone startup.rc file Claus Gittinger <cg@exept.de> parents: diff changeset	13	"/ is performed - this still works correctly, but may be invonvenient for the
d1c3a873a376 sample standAlone startup.rc file Claus Gittinger <cg@exept.de> parents: diff changeset	14	"/ user ...
d1c3a873a376 sample standAlone startup.rc file Claus Gittinger <cg@exept.de> parents: diff changeset	15
488 521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 399 diff changeset	16	[
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 399 diff changeset	17	Screen openDefaultDisplay:nil.
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 399 diff changeset	18	] on:Screen deviceOpenErrorSignal do:[:ex\|
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 399 diff changeset	19	('smalltalk.rc [warning]: No Display connection to: ', ex parameter) errorPrintCR.
1455 e5eada398b16 bugfix matilk parents: 609 diff changeset	20	].
83 d1c3a873a376 sample standAlone startup.rc file Claus Gittinger <cg@exept.de> parents: diff changeset	21	Display notNil ifTrue:[
1456 d1e4a43b35f2 oops again matilk parents: 1455 diff changeset	22	Smalltalk fileIn:'display.rc'.
d1e4a43b35f2 oops again matilk parents: 1455 diff changeset	23	Smalltalk fileIn:'keyboard.rc'.
83 d1c3a873a376 sample standAlone startup.rc file Claus Gittinger <cg@exept.de> parents: diff changeset	24	].
d1c3a873a376 sample standAlone startup.rc file Claus Gittinger <cg@exept.de> parents: diff changeset	25	Smalltalk silentLoading:true.
d1c3a873a376 sample standAlone startup.rc file Claus Gittinger <cg@exept.de> parents: diff changeset	26	!

author	Claus Gittinger <cg@exept.de>
	Sat, 09 Feb 2019 16:58:53 +0100
changeset 1588	2727a9f4ac36
parent 1456	d1e4a43b35f2
permissions	-rw-r--r--