# HG changeset patch
# User sr
# Date 1281533826 -7200
# Node ID 279e4be4e515731557e1a78be86a33637217ed98
# Parent  a0881b0914ab2ab706e1f878e4bb04d24d38e153
added: #restartBackgroundFinalizer
changed: #memoryMenu

diff -r a0881b0914ab -r 279e4be4e515 MemoryMonitorView.st
--- a/MemoryMonitorView.st	Wed Aug 11 14:33:10 2010 +0200
+++ b/MemoryMonitorView.st	Wed Aug 11 15:37:06 2010 +0200
@@ -860,6 +860,12 @@
                         ('Background Collect with Dynamic Priority' backgroundCollectWithDynamicPrio )
                          ) 
             ].
+            ObjectMemory backgroundFinalizationProcess isNil ifTrue:[
+                moreItems := moreItems , #(
+                            ('Start Background Finalizer'   restartBackgroundFinalizer )
+                         )
+            ].
+
         ].
         items := moreItems , items.
 
@@ -921,6 +927,18 @@
     "Modified: / 5.8.1998 / 14:30:17 / cg"
 !
 
+restartBackgroundFinalizer
+    "(re)start a background (non disturbing) incremental finalizer process."
+ 
+    ObjectMemory backgroundFinalizationProcess isNil
+    ifTrue:[
+        ObjectMemory startBackgroundFinalizationAt:5
+    ]
+
+    "Created: / 21.1.1997 / 00:09:30 / cg"
+    "Modified: / 5.8.1998 / 14:30:17 / cg"
+!
+
 scavenge 
     "perform a blocking newspace garbage collect.
      (this is for debugging only - the system does this automatically)"
@@ -975,5 +993,9 @@
 !MemoryMonitorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/MemoryMonitorView.st,v 1.11 2009-06-15 08:00:45 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/MemoryMonitorView.st,v 1.12 2010-08-11 13:37:06 sr Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libtool/MemoryMonitorView.st,v 1.12 2010-08-11 13:37:06 sr Exp $'
 ! !