|
4
|
1 |
"*
|
|
|
2 |
* $Header$
|
|
|
3 |
*
|
|
|
4 |
* sample private.rc - file
|
|
|
5 |
*
|
|
|
6 |
* a copy of this file can reside in your home directory -
|
|
|
7 |
* put all user-private preferences in here.
|
|
|
8 |
*"
|
|
|
9 |
|
|
7
|
10 |
Smalltalk systemPath addFirst:'../..'.
|
|
|
11 |
|
|
4
|
12 |
"claus:
|
|
|
13 |
I like those cursors :-)
|
|
7
|
14 |
if you think this is too 'childish', remove the line below ...
|
|
4
|
15 |
"
|
|
|
16 |
|
|
7
|
17 |
Smalltalk silentFileIn:'../goodies/Cursor-ST80Cursors.chg'.
|
|
4
|
18 |
!
|
|
7
|
19 |
"claus:
|
|
|
20 |
I dont want those warnings about stx features being non-portable ...
|
|
|
21 |
"
|
|
|
22 |
OperatingSystem getLoginName = 'claus' ifTrue:[
|
|
|
23 |
Compiler warnSTXSpecials:false
|
|
|
24 |
].
|
|
|
25 |
!
|
|
|
26 |
|
|
|
27 |
EditTextView classResources at:'cursorType' put:#caret.
|
|
|
28 |
!
|
|
|
29 |
"/ MessageTracer trace:Display selectors:(XWorkstation selectorArray)
|
|
|
30 |
|
|
8
|
31 |
|
|
|
32 |
"the following is experimental (and a secret)
|
|
|
33 |
"
|
|
|
34 |
|a|
|
|
|
35 |
ObjectMemory newSpaceSize > (500*1024) ifTrue:[
|
|
|
36 |
a := #(nil nil nil nil -16 -4 -2 -2 0 0 16 nil) copy.
|
|
|
37 |
] ifFalse:[
|
|
|
38 |
a := #(nil nil nil nil -16 -4 0 0 0 4 16 nil) copy.
|
|
|
39 |
].
|
|
|
40 |
ObjectMemory tenureParameters:a.
|
|
|
41 |
!
|