|
4
|
1 |
"*
|
|
|
2 |
* $Header$
|
|
|
3 |
*
|
|
|
4 |
* sample private.rc - file
|
|
|
5 |
*
|
|
10
|
6 |
* a copy of this file can (should) reside in your home or
|
|
|
7 |
* current directory - put all private preferences in here.
|
|
4
|
8 |
*"
|
|
|
9 |
|
|
7
|
10 |
Smalltalk systemPath addFirst:'../..'.
|
|
|
11 |
|
|
10
|
12 |
"
|
|
16
|
13 |
add my private directory to the searchPath ...
|
|
|
14 |
"
|
|
|
15 |
OperatingSystem getLoginName = 'claus' ifTrue:[
|
|
|
16 |
Smalltalk systemPath addFirst:'/phys/clam/claus/smalltalk/not_delivered'.
|
|
|
17 |
Smalltalk systemPath addFirst:'/phys/clam/claus/smalltalk/private_classes'.
|
|
|
18 |
].
|
|
|
19 |
|
|
|
20 |
"
|
|
10
|
21 |
color allocation strategy:
|
|
|
22 |
|
|
|
23 |
the default is to allocate from the colormap as required.
|
|
|
24 |
As long as the number of distinct colors used is less than the number
|
|
|
25 |
of available colors (which is usually the case) this leads to better looking
|
|
|
26 |
images.
|
|
|
27 |
However, if many images are to be displayed simulatiously, images displayed
|
|
|
28 |
first may steal too many colors required in images displayed later.
|
|
|
29 |
In this case, it is better to preallocate some colors, and dither all images
|
|
|
30 |
using theese. Of course, while making the worst case better, this makes
|
|
|
31 |
the best case worse. You can decide ...
|
|
|
32 |
"
|
|
|
33 |
"/ Color getColors6x6x4.
|
|
|
34 |
|
|
|
35 |
"
|
|
|
36 |
The following loads some nice cursors; for example thumbsUp and thumbsDown
|
|
|
37 |
|
|
|
38 |
claus:
|
|
|
39 |
I like those cursors :-)
|
|
|
40 |
if you think this is too 'childish', remove the line below ...
|
|
4
|
41 |
"
|
|
|
42 |
|
|
7
|
43 |
Smalltalk silentFileIn:'../goodies/Cursor-ST80Cursors.chg'.
|
|
10
|
44 |
|
|
|
45 |
"
|
|
|
46 |
claus:
|
|
|
47 |
I dont want those warnings about stx features being non-portable ...
|
|
|
48 |
However, you should (at least when new to the system) see them.
|
|
|
49 |
Once you get bored about them, make the below unconditional.
|
|
7
|
50 |
"
|
|
|
51 |
OperatingSystem getLoginName = 'claus' ifTrue:[
|
|
12
|
52 |
Compiler warnSTXSpecials:false.
|
|
|
53 |
Compiler allowUnderscoreInIdentifier:true.
|
|
16
|
54 |
Compiler warnUnderscoreInIdentifier:false.
|
|
7
|
55 |
].
|
|
10
|
56 |
|
|
|
57 |
"
|
|
|
58 |
this is a temporary kludge: specify the flags to be used
|
|
|
59 |
when compiling via stc. Primitive compilation (from within the browser)
|
|
|
60 |
is still experimental. So you better not care (yet)
|
|
16
|
61 |
BTW: its only supported on UnixWare and SGI anyway.
|
|
10
|
62 |
"
|
|
|
63 |
OperatingSystem getOSType = 'irix' ifTrue:[
|
|
|
64 |
Compiler stcCompilationFlags:'-I../../include +optinline -DGLX'.
|
|
|
65 |
] ifFalse:[
|
|
|
66 |
Compiler stcCompilationFlags:'-I../../include -I../../librun/VGL/vogl/src +optinline -DVGL'.
|
|
|
67 |
]
|
|
7
|
68 |
!
|
|
|
69 |
|
|
10
|
70 |
"
|
|
16
|
71 |
experimental: try to always keep some bytes in the pocket
|
|
|
72 |
"
|
|
|
73 |
OperatingSystem getLoginName = 'claus' ifTrue:[
|
|
|
74 |
ObjectMemory freeSpaceGCLimit:1000000.
|
|
|
75 |
ObjectMemory startBackgroundCollectorAt:5.
|
|
|
76 |
ObjectMemory startBackgroundFinalizationAt:5.
|
|
|
77 |
]
|
|
|
78 |
!
|
|
|
79 |
|
|
|
80 |
"
|
|
10
|
81 |
another experimental (and a secret)
|
|
|
82 |
Playing around with GC parameters (aging params)
|
|
8
|
83 |
"
|
|
|
84 |
|a|
|
|
|
85 |
ObjectMemory newSpaceSize > (500*1024) ifTrue:[
|
|
|
86 |
a := #(nil nil nil nil -16 -4 -2 -2 0 0 16 nil) copy.
|
|
|
87 |
] ifFalse:[
|
|
16
|
88 |
"/ a := #(nil nil nil nil -16 -4 0 0 0 4 16 nil) copy.
|
|
|
89 |
"/ a := #(nil nil nil nil -20 -8 -3 -1 0 4 16 nil) copy.
|
|
|
90 |
a := #(nil nil nil nil -20 -8 -3 -1 -1 1 16 nil) copy.
|
|
8
|
91 |
].
|
|
|
92 |
ObjectMemory tenureParameters:a.
|
|
|
93 |
!
|