hg/stx-projects-smalltalk: stxapp.rc@022c3bb1113b (annotated)

396 a17124ca4b63 * empty log message * Claus Gittinger <cg@exept.de> parents: 209 diff changeset	1	"/
83 d1c3a873a376 sample standAlone startup.rc file Claus Gittinger <cg@exept.de> parents: diff changeset	2	"/ $Header$
d1c3a873a376 sample standAlone startup.rc file Claus Gittinger <cg@exept.de> parents: 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: 83 diff changeset	6	"/ ST/X startup command file:
83 d1c3a873a376 sample standAlone startup.rc file Claus Gittinger <cg@exept.de> parents: diff changeset	7	"/
d1c3a873a376 sample standAlone startup.rc file Claus Gittinger <cg@exept.de> parents: diff changeset	8	"/ example for a very simple startup file for standAlone applications
d1c3a873a376 sample standAlone startup.rc file Claus Gittinger <cg@exept.de> parents: diff changeset	9	"/ 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	10	"/
488 521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 399 diff changeset	11	"/ 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	12	"/ 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	13	"/ user ...
d1c3a873a376 sample standAlone startup.rc file Claus Gittinger <cg@exept.de> parents: diff changeset	14
488 521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 399 diff changeset	15	[
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 399 diff changeset	16	Screen openDefaultDisplay:nil.
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 399 diff changeset	17	] on:Screen deviceOpenErrorSignal do:[:ex\|
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 399 diff changeset	18	('smalltalk.rc [warning]: No Display connection to: ', ex parameter) errorPrintCR.
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 399 diff changeset	19	]
83 d1c3a873a376 sample standAlone startup.rc file Claus Gittinger <cg@exept.de> parents: diff changeset	20	Display notNil ifTrue:[
d1c3a873a376 sample standAlone startup.rc file Claus Gittinger <cg@exept.de> parents: diff changeset	21	Smalltalk fileIn:'display.rc'
488 521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 399 diff changeset	22	Smalltalk fileIn:'keyboard.rc'
83 d1c3a873a376 sample standAlone startup.rc file Claus Gittinger <cg@exept.de> parents: diff changeset	23	].
d1c3a873a376 sample standAlone startup.rc file Claus Gittinger <cg@exept.de> parents: diff changeset	24	Smalltalk silentLoading:true.
d1c3a873a376 sample standAlone startup.rc file Claus Gittinger <cg@exept.de> parents: diff changeset	25	!

author	Claus Gittinger <cg@exept.de>
	Tue, 17 Jun 2003 16:43:40 +0200
changeset 546	022c3bb1113b
parent 488	521e2d58f050
child 609	f0f51d4a0066
permissions	-rw-r--r--