equal
deleted
inserted
replaced
19 |
19 |
20 Registry comment:' |
20 Registry comment:' |
21 COPYRIGHT (c) 1993 by Claus Gittinger |
21 COPYRIGHT (c) 1993 by Claus Gittinger |
22 All Rights Reserved |
22 All Rights Reserved |
23 |
23 |
24 $Header: /cvs/stx/stx/libbasic/Registry.st,v 1.12 1995-03-07 21:55:20 claus Exp $ |
24 $Header: /cvs/stx/stx/libbasic/Registry.st,v 1.13 1995-03-08 23:39:36 claus Exp $ |
25 '! |
25 '! |
26 |
26 |
27 !Registry class methodsFor:'documentation'! |
27 !Registry class methodsFor:'documentation'! |
28 |
28 |
29 copyright |
29 copyright |
40 " |
40 " |
41 ! |
41 ! |
42 |
42 |
43 version |
43 version |
44 " |
44 " |
45 $Header: /cvs/stx/stx/libbasic/Registry.st,v 1.12 1995-03-07 21:55:20 claus Exp $ |
45 $Header: /cvs/stx/stx/libbasic/Registry.st,v 1.13 1995-03-08 23:39:36 claus Exp $ |
46 " |
46 " |
47 ! |
47 ! |
48 |
48 |
49 documentation |
49 documentation |
50 " |
50 " |
98 |
98 |
99 do:aBlock |
99 do:aBlock |
100 "evaluate aBlock for each registered object" |
100 "evaluate aBlock for each registered object" |
101 |
101 |
102 registeredObjects notNil ifTrue:[ |
102 registeredObjects notNil ifTrue:[ |
103 registeredObjects nonNilElementsDo:[:o | |
103 registeredObjects nonNilElementsDo:aBlock |
104 aBlock value:o |
|
105 ] |
|
106 ] |
104 ] |
107 ! ! |
105 ! ! |
108 |
106 |
109 !Registry methodsFor:'accessing'! |
107 !Registry methodsFor:'accessing'! |
110 |
108 |