--- a/private.rc Thu Jan 16 16:30:20 1997 +0100
+++ b/private.rc Mon Jan 27 19:29:59 1997 +0100
@@ -24,7 +24,15 @@
"/ a year or so ;-)
"/
ObjectMemory justInTimeCompilation:true.
-ObjectMemory dynamicCodeLimit:64000.
+
+"/
+"/ 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)
+"/
+
+"/ ObjectMemory dynamicCodeLimit:64000.
"/
"/ If local sources have preference over source code managment
@@ -51,7 +59,7 @@
].
!
-|whoAmI thisIsMySystem conf systemType|
+|whoAmI domain thisIsMySystem conf systemType|
'private.rc [info]: reading ''keyboard.rc'' ...' infoPrintCR.
Smalltalk fileIn:'keyboard.rc'.
@@ -71,10 +79,17 @@
"/
Smalltalk systemPath addFirst:'../..'.
+"/
+"/ some of my private settings ...
+"/
whoAmI := OperatingSystem getLoginName.
-thisIsMySystem := whoAmI = 'claus' or:[whoAmI = 'cg'].
+domain := OperatingSystem getDomainName.
+thisIsMySystem := (whoAmI = 'claus' or:[whoAmI = 'cg'])
+ and:[domain = 'axept.de' or:[domain = 'exept.de']].
thisIsMySystem ifTrue:[
+ ObjectMemory dynamicCodeLimit:64000.
+
MenuView defaultFont:(MenuView defaultFont size:10).
Smalltalk systemPath addFirst:'../../not_delivered'.