*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Wed, 28 Jan 1998 20:43:05 +0100
changeset 1431 f4900d4f0c06
parent 1430 c3a8341ecd43
child 1432 5c1e5f5ade52
*** empty log message ***
CBrowser.st
ChangesBrowser.st
--- 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 $'
 ! !