# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1553101296 -3600
# Node ID 7883eb939cae8dd44992091c71ad069f94979d97
# Parent  dea38d56c6e337ab5888e642bb5f2f3327bdab16
#DOCUMENTATION by cg
class: MemoryMonitor
added: #forceLowSpaceCleanup

class: MemoryMonitor class
changed: #mainMenu

diff -r dea38d56c6e3 -r 7883eb939cae MemoryMonitor.st
--- a/MemoryMonitor.st	Wed Mar 20 17:20:50 2019 +0100
+++ b/MemoryMonitor.st	Wed Mar 20 18:01:36 2019 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1999 by eXept Software AG
               All Rights Reserved
@@ -214,7 +216,7 @@
                   label: 'Memory Usage (by Class)'
                   itemValue: openMemoryUsageView
                 )
-(MenuItem label:'-')
+                (MenuItem label:'-')
                (MenuItem
                   label: 'Settings'
                   itemValue: openMemorySettings
@@ -246,6 +248,13 @@
                   label: 'Collect Garbage && Compress'
                   itemValue: collectGarbageAndCompress
                 )
+               (MenuItem
+                  label: '-'
+                )
+               (MenuItem
+                  label: 'Low Space Cleanup'
+                  itemValue: forceLowSpaceCleanup
+                )
                )
               nil
               nil
@@ -277,6 +286,8 @@
         nil
         nil
       )
+
+    "Modified: / 20-03-2019 / 18:00:43 / Claus Gittinger"
 ! !
 
 !MemoryMonitor methodsFor:'actions'!
@@ -301,6 +312,12 @@
     "Modified: / 29-10-2012 / 01:34:24 / cg"
 !
 
+forceLowSpaceCleanup
+    ObjectMemory performLowSpaceCleanup
+
+    "Created: / 20-03-2019 / 18:01:23 / Claus Gittinger"
+!
+
 openDocumentation
     HTMLDocumentView openFullOnDocumentationFile:'tools/misc/TOP.html#MEMORYMONITOR'
 
@@ -342,10 +359,10 @@
 !MemoryMonitor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/MemoryMonitor.st,v 1.74 2015-02-24 11:49:58 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/MemoryMonitor.st,v 1.74 2015-02-24 11:49:58 cg Exp $'
+    ^ '$Header$'
 ! !