author | Claus Gittinger <cg@exept.de> |
Tue, 22 Sep 1998 16:18:14 +0200 | |
changeset 307 | 039f6f30b2c5 |
parent 306 | 635ace8a4df9 |
child 318 | b423534d597d |
permissions | -rw-r--r-- |
4 | 1 |
"* |
2 |
* $Header$ |
|
3 |
* |
|
209 | 4 |
* ST/X startup configuration & command file: |
5 |
* |
|
4 | 6 |
* sample private.rc - file |
7 |
* |
|
52 | 8 |
* a copy of this file can (should) reside in $home/.smalltalk/private.rc or |
9 |
* in the current directory - put all private preferences in here. |
|
41 | 10 |
* |
11 |
* |
|
25 | 12 |
* notice, you will find some things enclosed in |
143
71dc5ec7ef26
Renamed NewLauncher to Launcher.
Stefan Vogel <sv@exept.de>
parents:
141
diff
changeset
|
13 |
* ... claus ifTrue:[ |
25 | 14 |
* |
143
71dc5ec7ef26
Renamed NewLauncher to Launcher.
Stefan Vogel <sv@exept.de>
parents:
141
diff
changeset
|
15 |
* these are my personal preferences which will be |
25 | 16 |
* ignored in your environment, but are taken in mine. |
17 |
* That way, I dont have to maintain two different 'private.rc' files. |
|
143
71dc5ec7ef26
Renamed NewLauncher to Launcher.
Stefan Vogel <sv@exept.de>
parents:
141
diff
changeset
|
18 |
* (you may want to have a look into it - some is of general interest) |
4 | 19 |
*" |
20 |
||
25 | 21 |
"/ |
198
7bbdd3d72cea
oops - dont set the codeLimit to 64k on all machines
Claus Gittinger <cg@exept.de>
parents:
195
diff
changeset
|
22 |
"/ you may limit the amount of memory allocated to |
7bbdd3d72cea
oops - dont set the codeLimit to 64k on all machines
Claus Gittinger <cg@exept.de>
parents:
195
diff
changeset
|
23 |
"/ dynamic compiled code ... |
204 | 24 |
"/ The default is unlimited; |
25 |
"/ If you run in a multiuser environment, or |
|
26 |
"/ short on swapSpace, a good limit is some 0.5 to 1Mb. |
|
198
7bbdd3d72cea
oops - dont set the codeLimit to 64k on all machines
Claus Gittinger <cg@exept.de>
parents:
195
diff
changeset
|
27 |
"/ |
7bbdd3d72cea
oops - dont set the codeLimit to 64k on all machines
Claus Gittinger <cg@exept.de>
parents:
195
diff
changeset
|
28 |
|
204 | 29 |
"/ ObjectMemory dynamicCodeLimit:500000. |
167 | 30 |
|
31 |
"/ |
|
143
71dc5ec7ef26
Renamed NewLauncher to Launcher.
Stefan Vogel <sv@exept.de>
parents:
141
diff
changeset
|
32 |
"/ If local sources have preference over source code managment |
71dc5ec7ef26
Renamed NewLauncher to Launcher.
Stefan Vogel <sv@exept.de>
parents:
141
diff
changeset
|
33 |
"/ |
71dc5ec7ef26
Renamed NewLauncher to Launcher.
Stefan Vogel <sv@exept.de>
parents:
141
diff
changeset
|
34 |
"/Class tryLocalSourceFirst:true. |
71dc5ec7ef26
Renamed NewLauncher to Launcher.
Stefan Vogel <sv@exept.de>
parents:
141
diff
changeset
|
35 |
|
71dc5ec7ef26
Renamed NewLauncher to Launcher.
Stefan Vogel <sv@exept.de>
parents:
141
diff
changeset
|
36 |
"/ |
25 | 37 |
"/ this turns off error/fatal messages from the VM |
38 |
"/ (it does not really make sense to turn them off) |
|
39 |
"/ |
|
40 |
"/ Smalltalk debugPrinting:false. |
|
41 |
||
42 |
"/ |
|
43 |
"/ set the package for fileIns done below |
|
44 |
"/ |
|
24 | 45 |
Project notNil ifTrue:[ |
46 |
Project setDefaultProject. |
|
25 | 47 |
Project current packageName:#'goody-fileIn'. |
24 | 48 |
]. |
49 |
! |
|
50 |
||
241 | 51 |
|whoAmI domain thisIsMySystem conf systemType incDir includes| |
91 | 52 |
|
279
289856108844
renamed mswindows3.style to mswindows95.style
Claus Gittinger <cg@exept.de>
parents:
275
diff
changeset
|
53 |
whoAmI := OperatingSystem getLoginName. |
289856108844
renamed mswindows3.style to mswindows95.style
Claus Gittinger <cg@exept.de>
parents:
275
diff
changeset
|
54 |
domain := OperatingSystem getDomainName. |
289856108844
renamed mswindows3.style to mswindows95.style
Claus Gittinger <cg@exept.de>
parents:
275
diff
changeset
|
55 |
thisIsMySystem := (whoAmI = 'claus' or:[whoAmI = 'cg']) |
289856108844
renamed mswindows3.style to mswindows95.style
Claus Gittinger <cg@exept.de>
parents:
275
diff
changeset
|
56 |
and:[domain = 'axept.de' or:[domain = 'exept.de']]. |
289856108844
renamed mswindows3.style to mswindows95.style
Claus Gittinger <cg@exept.de>
parents:
275
diff
changeset
|
57 |
|
26 | 58 |
"/ |
59 |
"/ no matter what the 'display.rc' says: |
|
60 |
"/ I want my #iris style ... |
|
61 |
"/ |
|
279
289856108844
renamed mswindows3.style to mswindows95.style
Claus Gittinger <cg@exept.de>
parents:
275
diff
changeset
|
62 |
|
289856108844
renamed mswindows3.style to mswindows95.style
Claus Gittinger <cg@exept.de>
parents:
275
diff
changeset
|
63 |
thisIsMySystem ifTrue:[ |
289856108844
renamed mswindows3.style to mswindows95.style
Claus Gittinger <cg@exept.de>
parents:
275
diff
changeset
|
64 |
Display hasGrayscales ifTrue:[ |
289856108844
renamed mswindows3.style to mswindows95.style
Claus Gittinger <cg@exept.de>
parents:
275
diff
changeset
|
65 |
OperatingSystem getOSType = 'win32' ifTrue:[ |
289856108844
renamed mswindows3.style to mswindows95.style
Claus Gittinger <cg@exept.de>
parents:
275
diff
changeset
|
66 |
View defaultStyle:#mswindows95 |
289856108844
renamed mswindows3.style to mswindows95.style
Claus Gittinger <cg@exept.de>
parents:
275
diff
changeset
|
67 |
] ifFalse:[ |
289856108844
renamed mswindows3.style to mswindows95.style
Claus Gittinger <cg@exept.de>
parents:
275
diff
changeset
|
68 |
View defaultStyle:#iris. |
289856108844
renamed mswindows3.style to mswindows95.style
Claus Gittinger <cg@exept.de>
parents:
275
diff
changeset
|
69 |
"/ |
289856108844
renamed mswindows3.style to mswindows95.style
Claus Gittinger <cg@exept.de>
parents:
275
diff
changeset
|
70 |
"/ or whatever you like as default ... |
289856108844
renamed mswindows3.style to mswindows95.style
Claus Gittinger <cg@exept.de>
parents:
275
diff
changeset
|
71 |
"/ |
289856108844
renamed mswindows3.style to mswindows95.style
Claus Gittinger <cg@exept.de>
parents:
275
diff
changeset
|
72 |
"/ View defaultStyle:#motif. |
289856108844
renamed mswindows3.style to mswindows95.style
Claus Gittinger <cg@exept.de>
parents:
275
diff
changeset
|
73 |
] |
217 | 74 |
] ifFalse:[ |
279
289856108844
renamed mswindows3.style to mswindows95.style
Claus Gittinger <cg@exept.de>
parents:
275
diff
changeset
|
75 |
View defaultStyle:#normal |
289856108844
renamed mswindows3.style to mswindows95.style
Claus Gittinger <cg@exept.de>
parents:
275
diff
changeset
|
76 |
]. |
209 | 77 |
]. |
104 | 78 |
|
25 | 79 |
"/ add my private directories to the searchPath ... |
80 |
"/ This does not make sense in your environment. |
|
81 |
"/ However, I leave the code here to show how its done. |
|
82 |
"/ |
|
24 | 83 |
Smalltalk systemPath addFirst:'../..'. |
84 |
||
198
7bbdd3d72cea
oops - dont set the codeLimit to 64k on all machines
Claus Gittinger <cg@exept.de>
parents:
195
diff
changeset
|
85 |
"/ |
7bbdd3d72cea
oops - dont set the codeLimit to 64k on all machines
Claus Gittinger <cg@exept.de>
parents:
195
diff
changeset
|
86 |
"/ some of my private settings ... |
7bbdd3d72cea
oops - dont set the codeLimit to 64k on all machines
Claus Gittinger <cg@exept.de>
parents:
195
diff
changeset
|
87 |
"/ |
91 | 88 |
|
152 | 89 |
thisIsMySystem ifTrue:[ |
217 | 90 |
"/ |
249 | 91 |
"/ I want the hostname to be prepended to a windows label |
92 |
"/ |
|
93 |
StandardSystemView includeHostNameInLabel:true. |
|
94 |
||
95 |
"/ |
|
217 | 96 |
"/ I prefer a smaller menu font |
97 |
"/ |
|
257 | 98 |
"/ MenuView defaultFont:(MenuView defaultFont size:10). |
161 | 99 |
|
217 | 100 |
"/ |
101 |
"/ I have additional directories to be searched for |
|
102 |
"/ |
|
26 | 103 |
Smalltalk systemPath addFirst:'../../not_delivered'. |
104 |
Smalltalk systemPath addFirst:'../../private_classes'. |
|
105 |
Smalltalk systemPath addFirst:'../../fileIn/not_delivered'. |
|
25 | 106 |
Smalltalk systemPath addFirst:'../../libpro'. |
16 | 107 |
]. |
25 | 108 |
|
109 |
"/ since smalltalk keeps track of which directories exist |
|
110 |
"/ in the path, this cache has to be flushed whenever new directories |
|
217 | 111 |
"/ are added to the system path: |
25 | 112 |
"/ |
24 | 113 |
Smalltalk flushPathCaches. |
16 | 114 |
|
25 | 115 |
"/ |
116 |
"/ color allocation strategy: |
|
117 |
"/ |
|
118 |
"/ the default is to allocate from the colormap as required. |
|
119 |
"/ As long as the number of distinct colors used is less than the number |
|
120 |
"/ of available colors (which is usually the case) this leads to better looking |
|
121 |
"/ images. |
|
122 |
"/ However, if many images are to be displayed simulatiously, images displayed |
|
123 |
"/ first may steal too many colors required in images displayed later. |
|
124 |
"/ In this case, it is better to preallocate some colors, and dither all images |
|
125 |
"/ using theese. Of course, while making the worst case better, this makes |
|
126 |
"/ the best case worse. You can decide ... |
|
127 |
"/ |
|
10 | 128 |
"/ Color getColors6x6x4. |
129 |
||
130 |
||
152 | 131 |
"/ The following enables some nice cursors; for example thumbsUp and thumbsDown |
25 | 132 |
"/ |
133 |
"/ claus: |
|
134 |
"/ I like those fancy cursors :-) |
|
217 | 135 |
"/ if you think this is too 'childish', remove (comment) the line below ... |
25 | 136 |
"/ |
217 | 137 |
"/ 'setup fancy cursors ...' infoPrintCR. |
118 | 138 |
Cursor initializeNewCursors. |
10 | 139 |
|
25 | 140 |
"/ claus: |
26 | 141 |
"/ The history manager automatically adds a history line to changed |
142 |
"/ methods and optionally to a classes history method. |
|
217 | 143 |
"/ if you dont like this, comment the following lines. |
26 | 144 |
"/ |
152 | 145 |
thisIsMySystem ifTrue:[ |
26 | 146 |
HistoryManager notNil ifTrue:[ |
195 | 147 |
'private.rc [info]: activating HistoryManager ...' infoPrintCR. |
26 | 148 |
HistoryManager activate. |
149 |
] |
|
7 | 150 |
]. |
41 | 151 |
|
152 |
"/ claus: |
|
180 | 153 |
"/ I startup the rdoit server process; |
154 |
"/ (using rdoit to start ST/X views via window manager menus ...) |
|
217 | 155 |
"/ If you like (and want) this to be also started automatically, |
156 |
"/ replace the if- by 'true ifTrue:...' or remove the if. |
|
180 | 157 |
"/ |
204 | 158 |
" |
180 | 159 |
thisIsMySystem ifTrue:[ |
195 | 160 |
'private.rc [info]: starting RDoItServer ...' infoPrintCR. |
199 | 161 |
Autoload autoloadFailedSignal handle:[:ex | |
162 |
'private.rc [warning]: cannot load RDoItServer' errorPrintCR |
|
204 | 163 |
ex return |
199 | 164 |
] do:[ |
204 | 165 |
RDoItServer autoload. |
166 |
RDoItServer start. |
|
167 |
RDoItServer allowHost:'localhost'. |
|
199 | 168 |
] |
180 | 169 |
]. |
204 | 170 |
" |
180 | 171 |
|
172 |
"/ claus: |
|
41 | 173 |
"/ I dont want those warnings about stx features being non-portable ... |
174 |
"/ However, you should (at least when new to the system) see them. |
|
175 |
"/ Once you get bored about them, make the below unconditional. |
|
152 | 176 |
"/ (you can also turn them off in the Launchers settings menu ...) |
41 | 177 |
"/ |
236 | 178 |
Compiler warnPossibleIncompatibilities:false. |
179 |
Compiler warnSTXSpecials:false. |
|
180 |
Compiler allowUnderscoreInIdentifier:true. |
|
181 |
Compiler warnUnderscoreInIdentifier:false. |
|
25 | 182 |
|
183 |
"/ this is a temporary kludge: specify the flags to be used |
|
184 |
"/ when compiling via stc. Primitive compilation (from within the browser) |
|
185 |
"/ is still experimental. So you better not care (yet) |
|
241 | 186 |
"/ BTW: its only supported on ELF and Linux systems - anyway |
25 | 187 |
"/ (and not in the free demo release). |
188 |
"/ |
|
216 | 189 |
|
190 |
"/ mhmh - this should be done in the host file ... |
|
166 | 191 |
|
25 | 192 |
Compiler stcCompilation:#default. |
166 | 193 |
Compiler stcCompilationOptions:'+optinline +inlineNew'. |
194 |
||
216 | 195 |
systemType := OperatingSystem getOSType. |
196 |
systemType = 'win32' ifTrue:[ |
|
297 | 197 |
"/ msc |
198 |
"/ Compiler ccPath:'cl'. |
|
199 |
"/ Compiler ccCompilationOptions:'/O1'. |
|
200 |
||
201 |
"/ borland |
|
202 |
"/ Compiler ccPath:'bcc32'. |
|
203 |
"/ Compiler ccCompilationOptions:''. |
|
216 | 204 |
] ifFalse:[ |
251 | 205 |
((systemType = 'vms') or:[systemType = 'openVMS']) ifTrue:[ |
257 | 206 |
Compiler ccPath:'cc'. |
207 |
Compiler ccCompilationOptions:'/names=as_is /standard=common'. |
|
216 | 208 |
] ifFalse:[ |
257 | 209 |
conf := Smalltalk configuration. |
210 |
(conf includesString:'gcc') ifTrue:[ |
|
251 | 211 |
Compiler ccPath:'gcc' |
257 | 212 |
] ifFalse:[ |
251 | 213 |
Compiler ccPath:'cc' |
257 | 214 |
]. |
215 |
Compiler ccCompilationOptions:'-O'. |
|
251 | 216 |
] |
216 | 217 |
]. |
241 | 218 |
|
244 | 219 |
includes := ''. |
241 | 220 |
('../../include' asFilename exists) ifTrue:[ |
221 |
"/ running in a development environment ... |
|
222 |
includes := includes , '-I../../include '. |
|
223 |
]. |
|
224 |
incDir := Smalltalk getSystemFileName:'include'. |
|
225 |
incDir notNil ifTrue:[ |
|
245 | 226 |
includes := includes , '-I' , incDir asFilename pathName , ' ' |
227 |
] ifFalse:[ |
|
241 | 228 |
"/ running in a shared environment ... |
229 |
includes := includes , '-I/usr/local/lib/smalltalk/include '. |
|
245 | 230 |
|
231 |
('/usr/local/lib/smalltalk/include' asFilename exists) ifFalse:[ |
|
251 | 232 |
'private.rc [warning]: no >>include<< directory found along your path.' errorPrintCR. |
233 |
'private.rc [warning]: this will affect stc-compilation from within the browser.' infoPrintCR. |
|
245 | 234 |
]. |
241 | 235 |
]. |
236 |
||
237 |
Compiler stcCompilationIncludes:includes. |
|
152 | 238 |
|
26 | 239 |
|
181 | 240 |
thisIsMySystem ifTrue:[ |
241 |
"/ |
|
242 |
"/ for myself: preset flags, so that I |
|
243 |
"/ can accept GLXWorkstation code |
|
152 | 244 |
"/ |
181 | 245 |
Display supportsGLDrawing ifTrue:[ |
246 |
systemType = 'irix' ifTrue:[ |
|
191 | 247 |
"/ Display isOpenGL ifTrue:[ |
248 |
"/ Compiler stcCompilationDefines:'-DOPENGL'. |
|
249 |
"/ ] ifFalse:[ |
|
181 | 250 |
Compiler stcCompilationDefines:'-DGLX'. |
191 | 251 |
"/ ] |
181 | 252 |
] ifFalse:[ |
191 | 253 |
"/ Display isOpenGL ifTrue:[ |
254 |
"/ Compiler stcCompilationIncludes:'-I../../include -I../../support/MESA/Mesa1.2.5/include'. |
|
255 |
"/ Compiler stcCompilationDefines:'-DOPENGL -DMESA'. |
|
256 |
"/ ] ifFalse:[ |
|
216 | 257 |
Display supportsGLDrawing ifTrue:[ |
258 |
Compiler stcCompilationIncludes:'-I../../include -I../../support/VGL/vogl/src'. |
|
259 |
Compiler stcCompilationDefines:'-DVGL'. |
|
260 |
] |
|
191 | 261 |
"/ ]. |
26 | 262 |
|
181 | 263 |
"/ specify additional link libraries. |
264 |
"/ Disabled; thats the default anyway .... |
|
265 |
"/ |
|
266 |
"/ OperatingSystem getOSType = 'linux' ifTrue:[ |
|
267 |
"/ ObjectFileLoader searchedLibraries:#('/usr/lib/libc.a') |
|
268 |
"/ ] |
|
269 |
||
270 |
]. |
|
271 |
] |
|
25 | 272 |
]. |
7 | 273 |
|
166 | 274 |
systemType = 'solaris' ifTrue:[ |
275 |
Compiler ccCompilationOptions:'-O -fPIC' |
|
276 |
]. |
|
277 |
||
25 | 278 |
"/ experimental: try to always keep some bytes in the pocket |
64 | 279 |
"/ this changes the memory policy, to start the background collector whenever |
25 | 280 |
"/ freespace drops below 250k or 500k have been allocated since the last GC. |
281 |
"/ AND to allocate more memory, if (after the collect) less than 1Mb is free. |
|
282 |
"/ Doing so makes the system behave better if lots of memory is required |
|
64 | 283 |
"/ for short periods of time, since it prepares itself for that situation |
25 | 284 |
"/ during idle time. (I often walk around in the fileBrowser, loading big |
285 |
"/ files like XWorkstation.st or SystemBrowser.st ....) |
|
216 | 286 |
|
26 | 287 |
ObjectMemory freeSpaceGCAmount:1000000. |
288 |
ObjectMemory freeSpaceGCLimit:250000. |
|
289 |
ObjectMemory incrementalGCLimit:500000. |
|
204 | 290 |
ObjectMemory oldSpaceIncrement:500000. |
26 | 291 |
ObjectMemory startBackgroundCollectorAt:5. |
292 |
ObjectMemory startBackgroundFinalizationAt:5. |
|
25 | 293 |
|
293 | 294 |
"/ experimental: |
295 |
"/ run the background collector at a dynamic priority - it will |
|
296 |
"/ now always get a chance to make some progress ... |
|
297 |
||
295
6b28f0a1753f
enable dynamic prios by default
Claus Gittinger <cg@exept.de>
parents:
294
diff
changeset
|
298 |
true "thisIsMySystem" ifTrue:[ |
294 | 299 |
Smalltalk addStartBlock:[ |
300 |
'private.rc [info]: start timeSlicing...' infoPrintCR. |
|
301 |
Processor startTimeSlicing. |
|
302 |
Processor supportDynamicPriorities:true. |
|
303 |
ObjectMemory backgroundCollectProcess priorityRange:(4 to:9). |
|
304 |
ObjectMemory backgroundFinalizationProcess priorityRange:(4 to:9). |
|
305 |
] |
|
293 | 306 |
]. |
307 |
||
25 | 308 |
"/ experimental: configure the memory manager to quickly increase |
309 |
"/ its oldSpace, as long as it stays below 8Mb (i.e. do not enter |
|
310 |
"/ a blocking mark&sweep or compress, but go straight ahead increasing |
|
311 |
"/ the oldSpace). Above that, behave as usual, i.e. try a GC first, |
|
312 |
"/ then increase the oldSpace size if that did not help. |
|
313 |
"/ If you have a machine with lots of (real) memory, you may want to |
|
314 |
"/ increase the number. The value below should be ok for 16-32Mb machines. |
|
315 |
"/ |
|
26 | 316 |
ObjectMemory fastMoreOldSpaceLimit:8*1024*1024. |
317 |
ObjectMemory fastMoreOldSpaceAllocation:true. |
|
16 | 318 |
! |
319 |
||
25 | 320 |
"/ another experimental (and a secret for now, since I dont want |
321 |
"/ you to play with those ;-) |
|
322 |
"/ For now, this is experimental. Once the best numbers |
|
323 |
"/ have been found, I'll hardwire them and document it ... |
|
324 |
||
8 | 325 |
|a| |
326 |
ObjectMemory newSpaceSize > (500*1024) ifTrue:[ |
|
327 |
a := #(nil nil nil nil -16 -4 -2 -2 0 0 16 nil) copy. |
|
328 |
] ifFalse:[ |
|
17 | 329 |
"/ min max cpy /32 /16 /8 /4 /2 /4 /8 /16 /32 " |
25 | 330 |
"/ |
331 |
"/ slow tenure - keeps objects longer in newSpace, |
|
332 |
"/ producing more scavenge overhead, but releasing IGC somewhat |
|
333 |
"/ |
|
17 | 334 |
"/ a := #(nil nil nil -100 -8 -4 -1 1 2 4 8 16 nil) copy. |
335 |
"/ a := #(nil nil nil nil -16 -4 0 0 0 4 16 nil) copy. |
|
25 | 336 |
|
17 | 337 |
"fast tenure" |
25 | 338 |
"/ |
339 |
"/ fast tenure - moves objects earlier into oldSpace, |
|
340 |
"/ releasing newSpace collector; however, the oldSpace IGC |
|
341 |
"/ may have more work to do. |
|
342 |
"/ |
|
16 | 343 |
a := #(nil nil nil nil -20 -8 -3 -1 -1 1 16 nil) copy. |
8 | 344 |
]. |
345 |
ObjectMemory tenureParameters:a. |
|
25 | 346 |
|
347 |
||
348 |
"/ set the package back to some useful default for programming |
|
349 |
"/ this is the package token assigned (by default) to all new methods/classes |
|
350 |
"/ (so you can use a browser on package=#private to find all of your new |
|
351 |
"/ stuff easily. (the conditional on Project being nonNil is for stripped down |
|
352 |
"/ systems without a Project class) |
|
353 |
||
354 |
Project notNil ifTrue:[ |
|
355 |
Project setDefaultProject. |
|
356 |
Project current packageName:#'private'. |
|
357 |
]. |
|
8 | 358 |
! |
123
a974136fe017
startup infoPrinting suppressable (-q flag)
Claus Gittinger <cg@exept.de>
parents:
118
diff
changeset
|
359 |
|
306 | 360 |
"/ any personal file ? |
307 | 361 |
Smalltalk fileIn:('p_' , OperatingSystem getLoginName , '.rc'). |
306 | 362 |
|
126 | 363 |
(Smalltalk commandLine includes:'-q') ifFalse:[ |
123
a974136fe017
startup infoPrinting suppressable (-q flag)
Claus Gittinger <cg@exept.de>
parents:
118
diff
changeset
|
364 |
"/ |
a974136fe017
startup infoPrinting suppressable (-q flag)
Claus Gittinger <cg@exept.de>
parents:
118
diff
changeset
|
365 |
"/ this turns off/on information messages from classes |
a974136fe017
startup infoPrinting suppressable (-q flag)
Claus Gittinger <cg@exept.de>
parents:
118
diff
changeset
|
366 |
"/ (such as 'D8IMAGE: allocating colors ...' |
a974136fe017
startup infoPrinting suppressable (-q flag)
Claus Gittinger <cg@exept.de>
parents:
118
diff
changeset
|
367 |
"/ |
a974136fe017
startup infoPrinting suppressable (-q flag)
Claus Gittinger <cg@exept.de>
parents:
118
diff
changeset
|
368 |
"/ Object infoPrinting:false. |
a974136fe017
startup infoPrinting suppressable (-q flag)
Claus Gittinger <cg@exept.de>
parents:
118
diff
changeset
|
369 |
Object infoPrinting:true. |
a974136fe017
startup infoPrinting suppressable (-q flag)
Claus Gittinger <cg@exept.de>
parents:
118
diff
changeset
|
370 |
|
a974136fe017
startup infoPrinting suppressable (-q flag)
Claus Gittinger <cg@exept.de>
parents:
118
diff
changeset
|
371 |
"/ |
a974136fe017
startup infoPrinting suppressable (-q flag)
Claus Gittinger <cg@exept.de>
parents:
118
diff
changeset
|
372 |
"/ this turns off/on information messages from the VM |
a974136fe017
startup infoPrinting suppressable (-q flag)
Claus Gittinger <cg@exept.de>
parents:
118
diff
changeset
|
373 |
"/ (such as 'MEM: chitty chatty ...' |
a974136fe017
startup infoPrinting suppressable (-q flag)
Claus Gittinger <cg@exept.de>
parents:
118
diff
changeset
|
374 |
"/ |
a974136fe017
startup infoPrinting suppressable (-q flag)
Claus Gittinger <cg@exept.de>
parents:
118
diff
changeset
|
375 |
"/ ObjectMemory infoPrinting:false. |
a974136fe017
startup infoPrinting suppressable (-q flag)
Claus Gittinger <cg@exept.de>
parents:
118
diff
changeset
|
376 |
ObjectMemory infoPrinting:true. |
a974136fe017
startup infoPrinting suppressable (-q flag)
Claus Gittinger <cg@exept.de>
parents:
118
diff
changeset
|
377 |
]. |
143
71dc5ec7ef26
Renamed NewLauncher to Launcher.
Stefan Vogel <sv@exept.de>
parents:
141
diff
changeset
|
378 |
|
71dc5ec7ef26
Renamed NewLauncher to Launcher.
Stefan Vogel <sv@exept.de>
parents:
141
diff
changeset
|
379 |
Smalltalk addStartBlock:[ |
204 | 380 |
|s| |
381 |
||
143
71dc5ec7ef26
Renamed NewLauncher to Launcher.
Stefan Vogel <sv@exept.de>
parents:
141
diff
changeset
|
382 |
"/ |
71dc5ec7ef26
Renamed NewLauncher to Launcher.
Stefan Vogel <sv@exept.de>
parents:
141
diff
changeset
|
383 |
"/ start some views ... |
71dc5ec7ef26
Renamed NewLauncher to Launcher.
Stefan Vogel <sv@exept.de>
parents:
141
diff
changeset
|
384 |
"/ you can add all stuff you'd like to come up by default |
71dc5ec7ef26
Renamed NewLauncher to Launcher.
Stefan Vogel <sv@exept.de>
parents:
141
diff
changeset
|
385 |
"/ the first time. |
71dc5ec7ef26
Renamed NewLauncher to Launcher.
Stefan Vogel <sv@exept.de>
parents:
141
diff
changeset
|
386 |
"/ |
71dc5ec7ef26
Renamed NewLauncher to Launcher.
Stefan Vogel <sv@exept.de>
parents:
141
diff
changeset
|
387 |
|
195 | 388 |
'private.rc [info]: starting main-menu ...' infoPrintCR. |
289 | 389 |
Text new. "/ to avoid visible messages in minitalk |
296 | 390 |
"/ Launcher open. |
391 |
NewLauncher open |
|
143
71dc5ec7ef26
Renamed NewLauncher to Launcher.
Stefan Vogel <sv@exept.de>
parents:
141
diff
changeset
|
392 |
|
71dc5ec7ef26
Renamed NewLauncher to Launcher.
Stefan Vogel <sv@exept.de>
parents:
141
diff
changeset
|
393 |
"/ |
71dc5ec7ef26
Renamed NewLauncher to Launcher.
Stefan Vogel <sv@exept.de>
parents:
141
diff
changeset
|
394 |
"/ start a SystemBrowser |
71dc5ec7ef26
Renamed NewLauncher to Launcher.
Stefan Vogel <sv@exept.de>
parents:
141
diff
changeset
|
395 |
"/ - I dont want one (using Launcher) |
71dc5ec7ef26
Renamed NewLauncher to Launcher.
Stefan Vogel <sv@exept.de>
parents:
141
diff
changeset
|
396 |
"/ |
71dc5ec7ef26
Renamed NewLauncher to Launcher.
Stefan Vogel <sv@exept.de>
parents:
141
diff
changeset
|
397 |
"/ SystemBrowser open. |
71dc5ec7ef26
Renamed NewLauncher to Launcher.
Stefan Vogel <sv@exept.de>
parents:
141
diff
changeset
|
398 |
|
71dc5ec7ef26
Renamed NewLauncher to Launcher.
Stefan Vogel <sv@exept.de>
parents:
141
diff
changeset
|
399 |
"/ |
71dc5ec7ef26
Renamed NewLauncher to Launcher.
Stefan Vogel <sv@exept.de>
parents:
141
diff
changeset
|
400 |
"/ start a FileBrowser |
71dc5ec7ef26
Renamed NewLauncher to Launcher.
Stefan Vogel <sv@exept.de>
parents:
141
diff
changeset
|
401 |
"/ - I dont want one (using Launcher) |
71dc5ec7ef26
Renamed NewLauncher to Launcher.
Stefan Vogel <sv@exept.de>
parents:
141
diff
changeset
|
402 |
"/ |
71dc5ec7ef26
Renamed NewLauncher to Launcher.
Stefan Vogel <sv@exept.de>
parents:
141
diff
changeset
|
403 |
"/ FileBrowser open. |
71dc5ec7ef26
Renamed NewLauncher to Launcher.
Stefan Vogel <sv@exept.de>
parents:
141
diff
changeset
|
404 |
|
71dc5ec7ef26
Renamed NewLauncher to Launcher.
Stefan Vogel <sv@exept.de>
parents:
141
diff
changeset
|
405 |
"/ |
71dc5ec7ef26
Renamed NewLauncher to Launcher.
Stefan Vogel <sv@exept.de>
parents:
141
diff
changeset
|
406 |
"/ start a Workspace |
71dc5ec7ef26
Renamed NewLauncher to Launcher.
Stefan Vogel <sv@exept.de>
parents:
141
diff
changeset
|
407 |
"/ - I dont want one (using Launcher) |
71dc5ec7ef26
Renamed NewLauncher to Launcher.
Stefan Vogel <sv@exept.de>
parents:
141
diff
changeset
|
408 |
"/ |
71dc5ec7ef26
Renamed NewLauncher to Launcher.
Stefan Vogel <sv@exept.de>
parents:
141
diff
changeset
|
409 |
"/ Workspace open. |
71dc5ec7ef26
Renamed NewLauncher to Launcher.
Stefan Vogel <sv@exept.de>
parents:
141
diff
changeset
|
410 |
]. |
71dc5ec7ef26
Renamed NewLauncher to Launcher.
Stefan Vogel <sv@exept.de>
parents:
141
diff
changeset
|
411 |
|
123
a974136fe017
startup infoPrinting suppressable (-q flag)
Claus Gittinger <cg@exept.de>
parents:
118
diff
changeset
|
412 |
! |
306 | 413 |