Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
.
authorclaus
Sun, 13 Aug 1995 00:54:52 +0200
changeset 387 cdf48d5d7399
parent 386 9150fc58b228
child 388 992c48df4888
.
Object.st file | annotate | diff | comparison | revisions
OrdColl.st file | annotate | diff | comparison | revisions
OrderedCollection.st file | annotate | diff | comparison | revisions 
--- a/Object.st	Fri Aug 11 18:03:05 1995 +0200
+++ b/Object.st	Sun Aug 13 00:54:52 1995 +0200
@@ -30,7 +30,7 @@
 COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Object.st,v 1.59 1995-08-11 03:02:29 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Object.st,v 1.60 1995-08-12 22:54:43 claus Exp $
 '!
 
 !Object class methodsFor:'documentation'!
@@ -51,7 +51,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Object.st,v 1.59 1995-08-11 03:02:29 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Object.st,v 1.60 1995-08-12 22:54:43 claus Exp $
 "
 !
 
@@ -1476,6 +1476,12 @@
     ^ self error:'almost out of memory'
 !
 
+customInterrupt
+    "a custom interrupt"
+
+    ^ self error:'custom interrupt'
+!
+
 fpExceptionInterrupt
     "a floating point exception occured - this one
      has to be handled differently since it comes asynchronous
--- a/OrdColl.st	Fri Aug 11 18:03:05 1995 +0200
+++ b/OrdColl.st	Sun Aug 13 00:54:52 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Attic/OrdColl.st,v 1.31 1995-08-11 03:02:37 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/OrdColl.st,v 1.32 1995-08-12 22:54:52 claus Exp $
 '!
 
 !OrderedCollection class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Attic/OrdColl.st,v 1.31 1995-08-11 03:02:37 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/OrdColl.st,v 1.32 1995-08-12 22:54:52 claus Exp $
 "
 !
 
@@ -91,6 +91,18 @@
     ^ lastIndex - firstIndex + 1
 !
 
+isEmpty
+    "return true, if the receiver has no elements"
+
+    ^ lastIndex < firstIndex
+!
+
+notEmpty
+    "return true, if the receiver has any elements"
+
+    ^ lastIndex >= firstIndex
+!
+
 capacity
     "return the number of elements, that the receiver is
      prepared to take.
--- a/OrderedCollection.st	Fri Aug 11 18:03:05 1995 +0200
+++ b/OrderedCollection.st	Sun Aug 13 00:54:52 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/OrderedCollection.st,v 1.31 1995-08-11 03:02:37 claus Exp $
+$Header: /cvs/stx/stx/libbasic/OrderedCollection.st,v 1.32 1995-08-12 22:54:52 claus Exp $
 '!
 
 !OrderedCollection class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/OrderedCollection.st,v 1.31 1995-08-11 03:02:37 claus Exp $
+$Header: /cvs/stx/stx/libbasic/OrderedCollection.st,v 1.32 1995-08-12 22:54:52 claus Exp $
 "
 !
 
@@ -91,6 +91,18 @@
     ^ lastIndex - firstIndex + 1
 !
 
+isEmpty
+    "return true, if the receiver has no elements"
+
+    ^ lastIndex < firstIndex
+!
+
+notEmpty
+    "return true, if the receiver has any elements"
+
+    ^ lastIndex >= firstIndex
+!
+
 capacity
     "return the number of elements, that the receiver is
      prepared to take.
hg/stx-libbasic