stxapp.rc
author convert-repo
Sun, 10 Feb 2019 04:31:24 +0000
changeset 1590 a1e0688b2f39
parent 1456 d1e4a43b35f2
permissions -rw-r--r--
update tags

"/ 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.
!