equal
deleted
inserted
replaced
2892 ObjectMemory allObjectsDo:[:each | |
2892 ObjectMemory allObjectsDo:[:each | |
2893 |deps| |
2893 |deps| |
2894 |
2894 |
2895 (each class ~~ String) ifTrue:[ |
2895 (each class ~~ String) ifTrue:[ |
2896 each isProtoObject ifFalse:[ |
2896 each isProtoObject ifFalse:[ |
2897 (deps := each dependents) size > 0 ifTrue:[ |
2897 (deps := each dependents) size ~~ 0 ifTrue:[ |
2898 (deps includesIdentical:o) ifTrue:[ |
2898 (deps includesIdentical:o) ifTrue:[ |
2899 owners add:each |
2899 owners add:each |
2900 ]. |
2900 ]. |
2901 ]. |
2901 ]. |
2902 ]. |
2902 ]. |
2908 ^ self |
2908 ^ self |
2909 ]. |
2909 ]. |
2910 owners inspect. |
2910 owners inspect. |
2911 |
2911 |
2912 "Created: / 27-08-2018 / 11:09:35 / Claus Gittinger" |
2912 "Created: / 27-08-2018 / 11:09:35 / Claus Gittinger" |
|
2913 "Modified: / 01-03-2019 / 15:57:54 / Claus Gittinger" |
2913 ! |
2914 ! |
2914 |
2915 |
2915 showDependents |
2916 showDependents |
2916 "show the selected object's dependents" |
2917 "show the selected object's dependents" |
2917 |
2918 |