stxapp.rc
author Stefan Vogel <sv@exept.de>
Tue, 21 May 2002 10:16:25 +0200
changeset 488 521e2d58f050
parent 399 5a842f5d7196
child 609 f0f51d4a0066
permissions -rw-r--r--
Changed workstation initialization. Now mini-stx with only libbasic, libcomp and librun works.

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