stxapp.rc
author Jan Vrany <jan.vrany@fit.cvut.cz>
Mon, 24 Sep 2018 20:52:34 +0100
branchjv
changeset 1579 e6c2667b4692
parent 1456 d1e4a43b35f2
permissions -rw-r--r--
Fix bug when install `smalltalkx.svg` and `smalltalkx.desktop` when running from toy archive

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