--- a/CBrowser.st Wed Jan 28 16:12:55 1998 +0100
+++ b/CBrowser.st Wed Jan 28 20:43:05 1998 +0100
@@ -2262,14 +2262,14 @@
numDeletedBefore := self
silentDeleteChangesFor:classNameToDelete
from:1
- to:changeNr.
+ to:(changeNr-1).
self setChangeList.
self autoSelectOrEnd:(changeNr - numDeletedBefore)
]
]
- "Created: 13.12.1995 / 16:07:14 / cg"
- "Modified: 25.5.1996 / 12:26:31 / cg"
+ "Created: / 13.12.1995 / 16:07:14 / cg"
+ "Modified: / 28.1.1998 / 20:42:14 / cg"
!
doDeleteClassFromBeginning
@@ -2669,5 +2669,5 @@
!ChangesBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Attic/CBrowser.st,v 1.124 1998-01-28 12:33:28 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Attic/CBrowser.st,v 1.125 1998-01-28 19:43:05 cg Exp $'
! !
--- a/ChangesBrowser.st Wed Jan 28 16:12:55 1998 +0100
+++ b/ChangesBrowser.st Wed Jan 28 20:43:05 1998 +0100
@@ -2262,14 +2262,14 @@
numDeletedBefore := self
silentDeleteChangesFor:classNameToDelete
from:1
- to:changeNr.
+ to:(changeNr-1).
self setChangeList.
self autoSelectOrEnd:(changeNr - numDeletedBefore)
]
]
- "Created: 13.12.1995 / 16:07:14 / cg"
- "Modified: 25.5.1996 / 12:26:31 / cg"
+ "Created: / 13.12.1995 / 16:07:14 / cg"
+ "Modified: / 28.1.1998 / 20:42:14 / cg"
!
doDeleteClassFromBeginning
@@ -2669,5 +2669,5 @@
!ChangesBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.124 1998-01-28 12:33:28 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.125 1998-01-28 19:43:05 cg Exp $'
! !