24 "/ The default is unlimited; |
24 "/ The default is unlimited; |
25 "/ If you run in a multiuser environment, or |
25 "/ If you run in a multiuser environment, or |
26 "/ short on swapSpace, a good limit is some 0.5 to 1Mb. |
26 "/ short on swapSpace, a good limit is some 0.5 to 1Mb. |
27 "/ |
27 "/ |
28 |
28 |
29 "/ ObjectMemory dynamicCodeLimit:500000. |
29 "/ ObjectMemory dynamicCodeLimit:500000. |
30 |
30 |
31 "/ |
31 "/ |
32 "/ If local sources have preference over source code managment |
32 "/ If local sources should have preference over source code management |
33 "/ |
33 "/ (only useful, if you have the full version (including sourceCode mgmnt), |
34 "/Class tryLocalSourceFirst:true. |
34 "/ and CVS access is slow. |
|
35 "/ |
|
36 "/ Class tryLocalSourceFirst:true. |
35 |
37 |
36 "/ |
38 "/ |
37 "/ this turns off error/fatal messages from the VM |
39 "/ this turns off error/fatal messages from the VM |
38 "/ (it does not really make sense to turn them off) |
40 "/ (it does not really make sense to turn them off) |
39 "/ |
41 "/ |
74 ] ifFalse:[ |
76 ] ifFalse:[ |
75 View defaultStyle:#normal |
77 View defaultStyle:#normal |
76 ]. |
78 ]. |
77 ]. |
79 ]. |
78 |
80 |
|
81 thisIsMySystem ifTrue:[ |
|
82 "/ |
|
83 "/ I want the hostname to be prepended to a windows label |
|
84 "/ |
|
85 StandardSystemView includeHostNameInLabel:true. |
|
86 ]. |
|
87 |
|
88 thisIsMySystem ifTrue:[ |
|
89 "/ |
|
90 "/ I prefer a smaller menu font |
|
91 "/ |
|
92 "/ MenuView defaultFont:(MenuView defaultFont size:10). |
|
93 ]. |
|
94 |
79 "/ add my private directories to the searchPath ... |
95 "/ add my private directories to the searchPath ... |
80 "/ This does not make sense in your environment. |
96 "/ This does not make sense in your environment. |
81 "/ However, I leave the code here to show how its done. |
97 "/ However, I leave the code here to show how its done. |
82 "/ |
98 "/ |
83 Smalltalk systemPath addFirst:'../..'. |
99 thisIsMySystem ifTrue:[ |
84 |
100 #( |
85 "/ |
101 '../../not_delivered' |
86 "/ some of my private settings ... |
102 '../../private_classes' |
87 "/ |
103 '../../fileIn/not_delivered' |
88 |
104 '../../libpro' |
89 thisIsMySystem ifTrue:[ |
105 ) do:[:p | |
90 "/ |
106 p asFilename exists ifTrue:[ |
91 "/ I want the hostname to be prepended to a windows label |
107 Smalltalk systemPath addFirst:p. |
92 "/ |
108 ] |
93 StandardSystemView includeHostNameInLabel:true. |
109 ]. |
94 |
110 ]. |
95 "/ |
111 |
96 "/ I prefer a smaller menu font |
112 '../../doc' asFilename exists ifTrue:[ |
97 "/ |
113 Smalltalk systemPath addFirst:'../..'. |
98 "/ MenuView defaultFont:(MenuView defaultFont size:10). |
114 ]. |
99 |
115 '../' asFilename exists ifTrue:[ |
100 "/ |
116 Smalltalk systemPath addFirst:'..'. |
101 "/ I have additional directories to be searched for |
|
102 "/ |
|
103 Smalltalk systemPath addFirst:'../../not_delivered'. |
|
104 Smalltalk systemPath addFirst:'../../private_classes'. |
|
105 Smalltalk systemPath addFirst:'../../fileIn/not_delivered'. |
|
106 Smalltalk systemPath addFirst:'../../libpro'. |
|
107 ]. |
117 ]. |
108 |
118 |
109 "/ since smalltalk keeps track of which directories exist |
119 "/ since smalltalk keeps track of which directories exist |
110 "/ in the path, this cache has to be flushed whenever new directories |
120 "/ in the path, this cache has to be flushed whenever new directories |
111 "/ are added to the system path: |
121 "/ are added to the system path: |