1 "* |
1 "* |
2 * $Header$ |
2 * $Header$ |
3 * |
3 * |
4 * sample private.rc - file |
4 * sample private.rc - file |
5 * |
5 * |
6 * a copy of this file can reside in your home directory - |
6 * a copy of this file can (should) reside in your home or |
7 * put all user-private preferences in here. |
7 * current directory - put all private preferences in here. |
8 *" |
8 *" |
9 |
9 |
10 Smalltalk systemPath addFirst:'../..'. |
10 Smalltalk systemPath addFirst:'../..'. |
11 |
11 |
12 "claus: |
12 " |
13 I like those cursors :-) |
13 color allocation strategy: |
14 if you think this is too 'childish', remove the line below ... |
14 |
|
15 the default is to allocate from the colormap as required. |
|
16 As long as the number of distinct colors used is less than the number |
|
17 of available colors (which is usually the case) this leads to better looking |
|
18 images. |
|
19 However, if many images are to be displayed simulatiously, images displayed |
|
20 first may steal too many colors required in images displayed later. |
|
21 In this case, it is better to preallocate some colors, and dither all images |
|
22 using theese. Of course, while making the worst case better, this makes |
|
23 the best case worse. You can decide ... |
|
24 " |
|
25 "/ Color getColors6x6x4. |
|
26 |
|
27 " |
|
28 The following loads some nice cursors; for example thumbsUp and thumbsDown |
|
29 |
|
30 claus: |
|
31 I like those cursors :-) |
|
32 if you think this is too 'childish', remove the line below ... |
15 " |
33 " |
16 |
34 |
17 Smalltalk silentFileIn:'../goodies/Cursor-ST80Cursors.chg'. |
35 Smalltalk silentFileIn:'../goodies/Cursor-ST80Cursors.chg'. |
18 ! |
36 |
19 "claus: |
37 " |
20 I dont want those warnings about stx features being non-portable ... |
38 claus: |
|
39 I dont want those warnings about stx features being non-portable ... |
|
40 However, you should (at least when new to the system) see them. |
|
41 Once you get bored about them, make the below unconditional. |
21 " |
42 " |
22 OperatingSystem getLoginName = 'claus' ifTrue:[ |
43 OperatingSystem getLoginName = 'claus' ifTrue:[ |
23 Compiler warnSTXSpecials:false |
44 Compiler warnSTXSpecials:false |
24 ]. |
45 ]. |
|
46 |
|
47 " |
|
48 this is a temporary kludge: specify the flags to be used |
|
49 when compiling via stc. Primitive compilation (from within the browser) |
|
50 is still experimental. So you better not care (yet) |
|
51 " |
|
52 OperatingSystem getOSType = 'irix' ifTrue:[ |
|
53 Compiler stcCompilationFlags:'-I../../include +optinline -DGLX'. |
|
54 ] ifFalse:[ |
|
55 Compiler stcCompilationFlags:'-I../../include -I../../librun/VGL/vogl/src +optinline -DVGL'. |
|
56 ] |
25 ! |
57 ! |
26 |
58 |
27 EditTextView classResources at:'cursorType' put:#caret. |
59 " |
28 ! |
60 another experimental (and a secret) |
29 "/ MessageTracer trace:Display selectors:(XWorkstation selectorArray) |
61 Playing around with GC parameters (aging params) |
30 |
|
31 |
|
32 "the following is experimental (and a secret) |
|
33 " |
62 " |
34 |a| |
63 |a| |
35 ObjectMemory newSpaceSize > (500*1024) ifTrue:[ |
64 ObjectMemory newSpaceSize > (500*1024) ifTrue:[ |
36 a := #(nil nil nil nil -16 -4 -2 -2 0 0 16 nil) copy. |
65 a := #(nil nil nil nil -16 -4 -2 -2 0 0 16 nil) copy. |
37 ] ifFalse:[ |
66 ] ifFalse:[ |