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