author | Jan Vrany <jan.vrany@fit.cvut.cz> |
Mon, 11 Jun 2018 11:15:47 +0100 | |
branch | jv |
changeset 1558 | 36927a04ace3 |
parent 1456 | d1e4a43b35f2 |
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. |
1455 | 20 |
]. |
83
d1c3a873a376
sample standAlone startup.rc file
Claus Gittinger <cg@exept.de>
parents:
diff
changeset
|
21 |
Display notNil ifTrue:[ |
1456 | 22 |
Smalltalk fileIn:'display.rc'. |
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 |
! |