author | Claus Gittinger <cg@exept.de> |
Thu, 12 Jun 2014 09:11:17 +0200 | |
changeset 1351 | 3ef333479676 |
parent 609 | f0f51d4a0066 |
child 1455 | e5eada398b16 |
permissions | -rw-r--r-- |
609 | 1 |
"/ Encoding: iso8859-1 |
396 | 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 | 5 |
"/ MIMEType: application/x-smalltalk-source |
6 |
"/ |
|
209 | 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. |
521e2d58f050
Changed workstation initialization.
Stefan Vogel <sv@exept.de>
parents:
399
diff
changeset
|
20 |
] |
83
d1c3a873a376
sample standAlone startup.rc file
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
21 |
Display notNil ifTrue:[ |
d1c3a873a376
sample standAlone startup.rc file
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
22 |
Smalltalk fileIn:'display.rc' |
488
521e2d58f050
Changed workstation initialization.
Stefan Vogel <sv@exept.de>
parents:
399
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 |
! |