diff -r d1c0cacb1730 -r 69f81ca32823 private.rc --- a/private.rc Sun Mar 02 11:46:47 1997 +0100 +++ b/private.rc Fri Apr 11 13:02:07 1997 +0200 @@ -28,11 +28,12 @@ "/ "/ you may limit the amount of memory allocated to "/ dynamic compiled code ... -"/ (I use a very small size, to stress the garbage collector a bit; -"/ you should not do so. A good limit is some 0.5 to 1Mb) +"/ The default is unlimited; +"/ If you run in a multiuser environment, or +"/ short on swapSpace, a good limit is some 0.5 to 1Mb. "/ -"/ ObjectMemory dynamicCodeLimit:64000. +"/ ObjectMemory dynamicCodeLimit:500000. "/ "/ If local sources have preference over source code managment @@ -88,8 +89,6 @@ and:[domain = 'axept.de' or:[domain = 'exept.de']]. thisIsMySystem ifTrue:[ - ObjectMemory dynamicCodeLimit:64000. - MenuView defaultFont:(MenuView defaultFont size:10). Smalltalk systemPath addFirst:'../../not_delivered'. @@ -145,17 +144,19 @@ "/ I startup the rdoit server process; "/ (using rdoit to start ST/X views via window manager menus ...) "/ +" thisIsMySystem ifTrue:[ 'private.rc [info]: starting RDoItServer ...' infoPrintCR. Autoload autoloadFailedSignal handle:[:ex | 'private.rc [warning]: cannot load RDoItServer' errorPrintCR - ex return + ex return ] do:[ - RDoItServer autoload. - RDoItServer start. - RDoItServer allowHost:'localhost'. + RDoItServer autoload. + RDoItServer start. + RDoItServer allowHost:'localhost'. ] ]. +" "/ claus: "/ I dont want those warnings about stx features being non-portable ... @@ -240,6 +241,7 @@ ObjectMemory freeSpaceGCAmount:1000000. ObjectMemory freeSpaceGCLimit:250000. ObjectMemory incrementalGCLimit:500000. +ObjectMemory oldSpaceIncrement:500000. ObjectMemory startBackgroundCollectorAt:5. ObjectMemory startBackgroundFinalizationAt:5. @@ -312,6 +314,8 @@ ]. Smalltalk addStartBlock:[ + |s| + "/ "/ start some views ... "/ you can add all stuff you'd like to come up by default