--- a/OrderedCollection.st Sat Aug 05 16:05:36 1995 +0200
+++ b/OrderedCollection.st Tue Aug 08 02:49:43 1995 +0200
@@ -21,7 +21,7 @@
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic/OrderedCollection.st,v 1.28 1995-08-03 01:16:13 claus Exp $
+$Header: /cvs/stx/stx/libbasic/OrderedCollection.st,v 1.29 1995-08-08 00:48:10 claus Exp $
'!
!OrderedCollection class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
version
"
-$Header: /cvs/stx/stx/libbasic/OrderedCollection.st,v 1.28 1995-08-03 01:16:13 claus Exp $
+$Header: /cvs/stx/stx/libbasic/OrderedCollection.st,v 1.29 1995-08-08 00:48:10 claus Exp $
"
!
@@ -588,7 +588,7 @@
].
newContents := Array basicNew:newSize.
- newContents replaceFrom:1 to:(lastIndex - firstIndex + 1) with:contentsArray.
+ newContents replaceFrom:1 to:oldSize with:contentsArray startingAt:firstIndex.
contentsArray := newContents.
firstIndex := 1.
lastIndex := newSize
@@ -796,6 +796,9 @@
"
oldSize > (sz * 2) ifTrue:[
startIndex := firstIndex // 4.
+ startIndex == 0 ifTrue:[
+ startIndex := 1
+ ].
contentsArray
replaceFrom:startIndex
to:startIndex + sz - 1
@@ -845,6 +848,9 @@
"
oldSize > (sz * 2) ifTrue:[
startIndex := oldSize // 4.
+ startIndex == 0 ifTrue:[
+ startIndex := 1
+ ].
contentsArray
replaceFrom:startIndex
to:startIndex + sz - 1