"*
 * $Header$
 *
 * sample private.rc - file
 *
 * a copy of this file can reside in your home directory -
 * put all user-private preferences in here.
 *"

Smalltalk systemPath addFirst:'../..'.

"claus:
 I like those cursors :-)
 if you think this is too 'childish', remove the line below ...
"

Smalltalk silentFileIn:'../goodies/Cursor-ST80Cursors.chg'.
!
"claus:
 I dont want those warnings about stx features being non-portable ...
"
OperatingSystem getLoginName = 'claus' ifTrue:[
    Compiler warnSTXSpecials:false
].
!

EditTextView classResources at:'cursorType' put:#caret.
!
"/ MessageTracer trace:Display selectors:(XWorkstation selectorArray)