--- a/OrderedCollection.st Tue Oct 09 19:52:38 2001 +0200
+++ b/OrderedCollection.st Tue Oct 09 19:55:36 2001 +0200
@@ -1645,6 +1645,13 @@
firstIndex := newFirstIndex.
lastIndex := newLastIndex.
+!
+
+setIndices
+ "added for VW compatibility: set the indices for an empty collection"
+
+ firstIndex := 1.
+ lastIndex := 0.
! !
!OrderedCollection methodsFor:'private accessing'!
@@ -1817,5 +1824,5 @@
!OrderedCollection class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/OrderedCollection.st,v 1.78 2001-05-21 08:08:17 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/OrderedCollection.st,v 1.79 2001-10-09 17:55:36 cg Exp $'
! !