#FEATURE
authorStefan Vogel <sv@exept.de>
Thu, 01 Oct 2015 14:18:42 +0200
changeset 18789 db3ea237afc8
parent 18788 8396ad12d7ba
child 18790 7277f699c8f6
#FEATURE class: Registry added: #size
Registry.st
--- a/Registry.st	Thu Oct 01 12:15:20 2015 +0200
+++ b/Registry.st	Thu Oct 01 14:18:42 2015 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
@@ -280,6 +278,12 @@
 
 isEmpty
     ^ tally == 0
+!
+
+size
+    "answer the number of entries in the registry"
+
+    ^ tally
 ! !
 
 !Registry methodsFor:'registering objects'!