"*
 * $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)


"the following is experimental (and a secret)
"
|a|
ObjectMemory newSpaceSize > (500*1024) ifTrue:[
    a := #(nil nil nil nil -16 -4 -2 -2 0 0 16 nil) copy.
] ifFalse:[
    a := #(nil nil nil nil -16 -4 0 0 0 4 16 nil) copy.
].
ObjectMemory tenureParameters:a.
!