--- a/MemoryMonitor.st	Tue Jul 01 22:01:16 2014 +0200
+++ b/MemoryMonitor.st	Tue Jul 01 22:01:37 2014 +0200
@@ -212,6 +212,12 @@
                   label: 'Memory Usage (by Class)'
                   itemValue: openMemoryUsageView
                 )
+(MenuItem label:'-')
+               (MenuItem
+                  label: 'Settings'
+                  itemValue: openMemorySettings
+                )
+
                )
               nil
               nil
@@ -298,6 +304,20 @@
 
 !
 
+openMemorySettings
+    |settingsList|
+
+    settingsList :=
+        #(
+            #('Memory'      #'AbstractSettingsApplication::MemorySettingsAppl'              )
+        ).
+
+    SettingsDialog 
+        openWithList:settingsList 
+        label:(resources string:'Memory Settings')
+        initialSettingsClass:AbstractSettingsApplication::MemorySettingsAppl
+!
+
 openMemoryUsageView
     MemoryUsageView open
 ! !
@@ -320,10 +340,10 @@
 !MemoryMonitor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/MemoryMonitor.st,v 1.72 2014-01-13 13:25:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/MemoryMonitor.st,v 1.73 2014-07-01 20:01:37 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/MemoryMonitor.st,v 1.72 2014-01-13 13:25:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/MemoryMonitor.st,v 1.73 2014-07-01 20:01:37 cg Exp $'
 ! !