5 * |
5 * |
6 * a copy of this file can (should) reside in your home or |
6 * a copy of this file can (should) reside in your home or |
7 * current directory - put all private preferences in here. |
7 * current directory - put all private preferences in here. |
8 *" |
8 *" |
9 |
9 |
10 Smalltalk systemPath addFirst:'../..'. |
10 " |
|
11 set the package to some useful default |
|
12 " |
|
13 Project notNil ifTrue:[ |
|
14 Project setDefaultProject. |
|
15 Project current packageName:#'private'. |
|
16 ]. |
|
17 ! |
|
18 |
|
19 " |
|
20 a kludge: some Xservers send #Delete for both the backspace |
|
21 and the Delete key. In this case, we use the Backspace function |
|
22 for both keys. If your Xserver does not do this (it should not) |
|
23 remove /comment the following lines: |
|
24 " |
|
25 |map| |
|
26 |
|
27 map := Display keyboardMap. |
|
28 map bindValue:#BackSpace to:#Delete. |
11 |
29 |
12 " |
30 " |
13 add my private directory to the searchPath ... |
31 add my private directory to the searchPath ... |
14 This does not make sense in your environment. |
32 This does not make sense in your environment. |
15 However, I leave the code here to show how its done. |
33 However, I leave the code here to show how its done. |
16 " |
34 " |
|
35 Smalltalk systemPath addFirst:'../..'. |
|
36 |
17 OperatingSystem getLoginName = 'claus' ifTrue:[ |
37 OperatingSystem getLoginName = 'claus' ifTrue:[ |
18 Smalltalk systemPath addFirst:'/phys/clam/claus/smalltalk/not_delivered'. |
38 Smalltalk systemPath addFirst:'/phys/clam/claus/smalltalk/not_delivered'. |
19 Smalltalk systemPath addFirst:'/phys/clam/claus/smalltalk/private_classes'. |
39 Smalltalk systemPath addFirst:'/phys/clam/claus/smalltalk/private_classes'. |
20 Smalltalk systemPath addFirst:'/phys/clam/claus/work/fileIn/not_delivered'. |
40 Smalltalk systemPath addFirst:'/phys/clam/claus/work/fileIn/not_delivered'. |
21 Smalltalk systemPath addFirst:'/phys/clam/claus/work/libpro'. |
41 Smalltalk systemPath addFirst:'/phys/clam/claus/work/libpro'. |
22 ]. |
42 ]. |
|
43 Smalltalk flushPathCaches. |
23 |
44 |
24 " |
45 " |
25 color allocation strategy: |
46 color allocation strategy: |
26 |
47 |
27 the default is to allocate from the colormap as required. |
48 the default is to allocate from the colormap as required. |