--- a/MemoryMonitor.st	Sun Jan 12 23:30:25 2014 +0000
+++ b/MemoryMonitor.st	Wed Apr 01 10:38:01 2015 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libtool' }"
 
+"{ NameSpace: Smalltalk }"
+
 ApplicationModel subclass:#MemoryMonitor
 	instanceVariableNames:'memoryView'
 	classVariableNames:''
@@ -212,6 +214,12 @@
                   label: 'Memory Usage (by Class)'
                   itemValue: openMemoryUsageView
                 )
+(MenuItem label:'-')
+               (MenuItem
+                  label: 'Settings'
+                  itemValue: openMemorySettings
+                )
+
                )
               nil
               nil
@@ -227,6 +235,10 @@
                   itemValue: collectGarbage
                 )
                (MenuItem
+                  label: 'Compress Only'
+                  itemValue: compressOldSpace
+                )
+               (MenuItem
                   label: 'Collect Garbage && Symbols'
                   itemValue: collectGarbageAndSymbols
                 )
@@ -240,8 +252,8 @@
             )
           )
          (MenuItem
-            label: 'Help'
-            startGroup: right
+            label: 'MENU_Help'
+            startGroup: conditionalRight
             submenu: 
            (Menu
               (
@@ -283,11 +295,31 @@
      memoryView collectGarbageAndSymbols
 !
 
+compressOldSpace
+     memoryView compressOldSpace
+
+    "Modified: / 29-10-2012 / 01:34:24 / cg"
+!
+
 openDocumentation
     HTMLDocumentView openFullOnDocumentationFile:'tools/misc/TOP.html#MEMORYMONITOR'
 
 !
 
+openMemorySettings
+    |settingsList|
+
+    settingsList :=
+        #(
+            #('Memory'      #'AbstractSettingsApplication::MemorySettingsAppl'              )
+        ).
+
+    SettingsDialog 
+        openWithList:settingsList 
+        label:(resources string:'Memory Settings')
+        initialSettingsClass:AbstractSettingsApplication::MemorySettingsAppl
+!
+
 openMemoryUsageView
     MemoryUsageView open
 ! !
@@ -310,19 +342,10 @@
 !MemoryMonitor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/MemoryMonitor.st,v 1.71 2013-06-13 15:29:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/MemoryMonitor.st,v 1.74 2015-02-24 11:49:58 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/MemoryMonitor.st,v 1.71 2013-06-13 15:29:14 cg Exp $'
-!
-
-version_HG
-
-    ^ '$Changeset: <not expanded> $'
-!
-
-version_SVN
-    ^ '$Id: MemoryMonitor.st 8074 2012-11-30 17:23:39Z vranyj1 $'
+    ^ '$Header: /cvs/stx/stx/libtool/MemoryMonitor.st,v 1.74 2015-02-24 11:49:58 cg Exp $'
 ! !