--- 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 $'
! !