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

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

"
 color allocation strategy:

 the default is to allocate from the colormap as required.
 As long as the number of distinct colors used is less than the number
 of available colors (which is usually the case) this leads to better looking
 images.
 However, if many images are to be displayed simulatiously, images displayed
 first may steal too many colors required in images displayed later.
 In this case, it is better to preallocate some colors, and dither all images
 using theese. Of course, while making the worst case better, this makes
 the best case worse. You can decide ...
"
"/   Color getColors6x6x4.

"
 The following loads some nice cursors; for example thumbsUp and thumbsDown

 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 ...
     However, you should (at least when new to the system) see them.
     Once you get bored about them, make the below unconditional.
"
OperatingSystem getLoginName = 'claus' ifTrue:[
    Compiler warnSTXSpecials:false.
    Compiler allowUnderscoreInIdentifier:true. 
].

"
 this is a temporary kludge: specify the flags to be used
 when compiling via stc. Primitive compilation (from within the browser)
 is still experimental. So you better not care (yet)
"
OperatingSystem getOSType = 'irix' ifTrue:[
    Compiler stcCompilationFlags:'-I../../include +optinline -DGLX'.
] ifFalse:[
    Compiler stcCompilationFlags:'-I../../include -I../../librun/VGL/vogl/src +optinline -DVGL'.
]
!

"
 another experimental (and a secret)
 Playing around with GC parameters (aging params)
"
|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.
!