--- a/Collection.st Tue Dec 10 12:00:03 2002 +0100
+++ b/Collection.st Tue Dec 10 15:36:47 2002 +0100
@@ -2441,6 +2441,13 @@
^ self isEmpty not
!
+notEmptyOrNil
+ "Squeak compatibility:
+ return true if I am neither nil nor an empty collection."
+
+ ^ self notEmpty
+!
+
occurrencesOf:anElement
"return the number of occurrences of the argument, anElement in
the receiver. Uses #= (i.e. equality) compare."
@@ -2469,7 +2476,7 @@
!Collection class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.131 2002-11-20 09:26:28 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.132 2002-12-10 14:36:47 penk Exp $'
! !
Collection initialize!
--- a/Object.st Tue Dec 10 12:00:03 2002 +0100
+++ b/Object.st Tue Dec 10 15:36:47 2002 +0100
@@ -8550,6 +8550,14 @@
^ false
!
+notEmptyOrNil
+ "Squeak compatibility:
+ return true if I am neither nil nor an empty collection.
+ Return true here."
+
+ ^ true
+!
+
notNil
"return true, if the receiver is not nil.
Notice:
@@ -8944,7 +8952,7 @@
!Object class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.437 2002-12-09 11:53:12 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.438 2002-12-10 14:36:05 penk Exp $'
! !
Object initialize!
--- a/UndefinedObject.st Tue Dec 10 12:00:03 2002 +0100
+++ b/UndefinedObject.st Tue Dec 10 15:36:47 2002 +0100
@@ -639,6 +639,13 @@
"Modified: / 13.11.2001 / 13:28:15 / cg"
!
+notEmptyOrNil
+ "Squeak compatibility:
+ return true if I am neither nil nor an empty collection."
+
+ ^ false
+!
+
notNil
"return true if I am not nil - since I am nil, return false.
Notice:
@@ -661,6 +668,7 @@
!UndefinedObject class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/UndefinedObject.st,v 1.53 2001-11-13 12:32:24 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/UndefinedObject.st,v 1.54 2002-12-10 14:36:26 penk Exp $'
! !
+
UndefinedObject initialize!