--- a/UserPreferences.st Tue Jun 29 15:21:08 2004 +0200
+++ b/UserPreferences.st Tue Jun 29 15:21:49 2004 +0200
@@ -398,6 +398,18 @@
s cr.
s nextPutLine:'"/'.
+ s nextPutLine:'"/ GC settings:'.
+ s nextPutLine:'"/'.
+ s nextPutLine:'ObjectMemory newSpaceSize: ' , (ObjectMemory newSpaceSize storeString) , '.';
+ nextPutLine:'ObjectMemory dynamicCodeGCTrigger: ' , (ObjectMemory dynamicCodeGCTrigger storeString) , '.';
+ nextPutLine:'ObjectMemory freeSpaceGCAmount: ' , (ObjectMemory freeSpaceGCAmount storeString) , '.';
+ nextPutLine:'ObjectMemory freeSpaceGCLimit: ' , (ObjectMemory freeSpaceGCLimit storeString) , '.';
+ nextPutLine:'ObjectMemory incrementalGCLimit: ' , (ObjectMemory incrementalGCLimit storeString) , '.';
+ nextPutLine:'ObjectMemory oldSpaceCompressLimit: ' , (ObjectMemory oldSpaceCompressLimit storeString) , '.';
+ nextPutLine:'ObjectMemory oldSpaceIncrement: ' , (ObjectMemory oldSpaceIncrement storeString) , '.'.
+
+ s cr.
+ s nextPutLine:'"/'.
s nextPutLine:'"/ Misc settings:'.
s nextPutLine:'"/'.
s nextPutLine:'Class keepMethodHistory: ' , (Class methodHistory notNil storeString) , '.';
@@ -408,7 +420,8 @@
"/ claus - I dont think its a good idea to save those ...
nextPutLine:'"/ Class updateChanges: ' , (Class updatingChanges storeString) , '.';
- nextPutLine:'"/ ObjectMemory nameForChanges: ' , (ObjectMemory nameForChanges storeString) , '.';
+
+ nextPutLine:'ObjectMemory nameForChanges: ' , (ObjectMemory nameForChanges storeString) , '.';
nextPutLine:'StandardSystemView returnFocusWhenClosingModalBoxes: ' , (StandardSystemView returnFocusWhenClosingModalBoxes storeString) , '.';
nextPutLine:'StandardSystemView takeFocusWhenMapped: ' , (StandardSystemView takeFocusWhenMapped storeString) , '.';
@@ -2264,5 +2277,5 @@
!UserPreferences class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.141 2004-06-28 07:22:36 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.142 2004-06-29 13:21:49 stefan Exp $'
! !