--- a/ChangesBrowser.st Tue Oct 02 19:44:41 2001 +0200
+++ b/ChangesBrowser.st Tue Oct 02 19:59:37 2001 +0200
@@ -742,10 +742,14 @@
<resource: #keyboard (#Delete #BackSpace #Accept #Find #FindPrev #FindNext)>
- (key == #Delete or:[key == #BackSpace]) ifTrue:[
+ (key == #Delete) ifTrue:[
self doDelete.
^ self
].
+ (key == #BackSpace) ifTrue:[
+ self doDeleteAndSelectPrevious.
+ ^ self
+ ].
(key == #Accept) ifTrue:[
self doApply.
^ self
@@ -3659,6 +3663,15 @@
]
!
+doDeleteAndSelectPrevious
+ "delete currently selected change(s)"
+
+ self withSelectedChangesReverseDo:[:changeNr |
+ self deleteChange:changeNr.
+ self autoSelectOrEnd:changeNr-1
+ ]
+!
+
doDeleteClassAll
"delete all changes with same class as currently selected change"
@@ -4394,5 +4407,5 @@
!ChangesBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.229 2001-10-01 08:23:10 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.230 2001-10-02 17:59:37 cg Exp $'
! !