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