stxapp.rc
author Claus Gittinger <cg@exept.de>
Sat, 14 Feb 2015 12:23:18 +0100
changeset 1371 5f736b9cb625
parent 609 f0f51d4a0066
child 1455 e5eada398b16
permissions -rw-r--r--
*** empty log message ***

"/ Encoding: iso8859-1
"/
"/ $Header$
"/
"/ MIMEType: application/x-smalltalk-source
"/
"/ ST/X startup command file:
"/
"/ example for a very simple startup file for standAlone applications
"/ this is read for standAlone apps, if no <commandName>.rc is found.
"/
"/ without an stxapp.rc, no display is opened and no setup of keyboardMap or viewStyle
"/ is performed - this still works correctly, but may be invonvenient for the
"/ user ...

[
    Screen openDefaultDisplay:nil.
] on:Screen deviceOpenErrorSignal do:[:ex|
    ('smalltalk.rc [warning]: No Display connection to: ', ex parameter) errorPrintCR.
]
Display notNil ifTrue:[
    Smalltalk fileIn:'display.rc'
    Smalltalk fileIn:'keyboard.rc'
].
Smalltalk silentLoading:true.
!