--- a/Array.st Tue Aug 22 15:49:36 2000 +0200
+++ b/Array.st Tue Aug 22 15:57:33 2000 +0200
@@ -413,30 +413,6 @@
^ super basicAt:index put:anObject
"Modified: 19.4.1996 / 11:14:26 / cg"
-!
-
-basicSize
- "return the number of indexed elements in the receiver"
-
-%{ /* NOCONTEXT */
- REGISTER OBJ slf = self;
-
- RETURN ( __MKSMALLINT(__arraySize(slf) - __intVal(__ClassInstPtr(__qClass(slf))->c_ninstvars) ));
-%}
-!
-
-size
- "return the number of indexed elements in the receiver.
- Reimplemented here to avoid the additional size->basicSize send
- (which we can do here, since when arriving here, #size is obviously not
- redefined in a subclass).
- This method is the same as basicSize."
-
-%{ /* NOCONTEXT */
- REGISTER OBJ slf = self;
-
- RETURN ( __MKSMALLINT(__arraySize(slf) - __intVal(__ClassInstPtr(__qClass(slf))->c_ninstvars) ));
-%}
! !
!Array methodsFor:'converting'!
@@ -1672,6 +1648,16 @@
!Array methodsFor:'queries'!
+basicSize
+ "return the number of indexed elements in the receiver"
+
+%{ /* NOCONTEXT */
+ REGISTER OBJ slf = self;
+
+ RETURN ( __MKSMALLINT(__arraySize(slf) - __intVal(__ClassInstPtr(__qClass(slf))->c_ninstvars) ));
+%}
+!
+
refersToLiteral:aLiteral
"return true if the receiver or recursively any array element in the
receiver referes to aLiteral (i.e. a deep search)"
@@ -1691,6 +1677,20 @@
"
"Modified: / 18.8.2000 / 21:18:14 / cg"
+!
+
+size
+ "return the number of indexed elements in the receiver.
+ Reimplemented here to avoid the additional size->basicSize send
+ (which we can do here, since when arriving here, #size is obviously not
+ redefined in a subclass).
+ This method is the same as basicSize."
+
+%{ /* NOCONTEXT */
+ REGISTER OBJ slf = self;
+
+ RETURN ( __MKSMALLINT(__arraySize(slf) - __intVal(__ClassInstPtr(__qClass(slf))->c_ninstvars) ));
+%}
! !
!Array methodsFor:'searching'!
@@ -2415,5 +2415,5 @@
!Array class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.127 2000-08-22 13:46:47 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.128 2000-08-22 13:55:49 cg Exp $'
! !