--- a/ChangesBrowser.st	Wed Jul 05 10:56:19 2017 +0200
+++ b/ChangesBrowser.st	Fri Jul 07 12:53:06 2017 +0200
@@ -186,7 +186,15 @@
 
 deleteForClassToEnd
 'Delete this and all following changes for the selected change''s class'
+
+deleteClassSelectorAll
+'Delete all changes for the selected method'
+
+deleteClassSelectorOlder
+'Delete previous changes for the selected method'
 )
+
+    "Modified: / 07-07-2017 / 12:52:44 / cg"
 ! !
 
 !ChangesBrowser class methodsFor:'menu specs'!
@@ -839,10 +847,35 @@
             isButton: true
             labelImage: (ResourceRetriever ToolbarIconLibrary deleteClassToEnd24x24Icon)
           )
+         (MenuItem
+            label: '-'
+          )
+         (MenuItem
+            activeHelpKey: deleteClassSelectorAll
+            enabled: hasSelectionHolder
+            isVisible: canDeleteChanges
+            label: 'Delete all Versions of this Method'
+            itemValue: doDeleteClassSelectorAll
+            translateLabel: true
+            isButton: true
+            labelImage: (ResourceRetriever ToolbarIconLibrary deleteMethod24x24Icon)
+          )
+         (MenuItem
+            activeHelpKey: deleteClassSelectorOlder
+            enabled: hasSelectionHolder
+            isVisible: canDeleteChanges
+            label: 'Delete older Versions of this Method'
+            itemValue: doDeleteClassSelectorOlder
+            translateLabel: true
+            isButton: true
+            labelImage: (ResourceRetriever ToolbarIconLibrary deleteMethodFromStart24x24Icon)
+          )
          )
         nil
         nil
       )
+
+    "Modified: / 07-07-2017 / 12:52:28 / cg"
 ! !
 
 !ChangesBrowser class methodsFor:'private-changeFile access'!