# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1002045577 -7200
# Node ID b6509548b414e0aa1649b71e14dfe0a133c1b6dd
# Parent  abca009546b7e4dee853963c63d5cf6ab67f387e
checkin from browser

diff -r abca009546b7 -r b6509548b414 ChangesBrowser.st
--- 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 $'
 ! !