05/12/06 00:46:29
>>33
ぜんぜん答えになってないのだけれど、面白そうなのでこんなの書いてみた。
| sysNavi adds removes classes messages |
sysNavi := SystemNavigation default.
adds := sysNavi allCallsOn: #addDependent:.
removes := sysNavi allCallsOn: #removeDependent:.
classes := (adds collect: [:each | each class]) intersection: (removes collect: [:each | each class]).
messages := (adds union: removes) select: [:each | classes includes: each class].
sysNavi browseMessageList: messages asSortedArray name: 'Usage of dependency'