equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1993 by Claus Gittinger |
2 COPYRIGHT (c) 1993 by Claus Gittinger |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
278 |
276 |
279 !Registry methodsFor:'queries'! |
277 !Registry methodsFor:'queries'! |
280 |
278 |
281 isEmpty |
279 isEmpty |
282 ^ tally == 0 |
280 ^ tally == 0 |
|
281 ! |
|
282 |
|
283 size |
|
284 "answer the number of entries in the registry" |
|
285 |
|
286 ^ tally |
283 ! ! |
287 ! ! |
284 |
288 |
285 !Registry methodsFor:'registering objects'! |
289 !Registry methodsFor:'registering objects'! |
286 |
290 |
287 register:anObject |
291 register:anObject |