equal
deleted
inserted
replaced
1758 symbolSelectorClass := classOrNil. |
1758 symbolSelectorClass := classOrNil. |
1759 ]. |
1759 ]. |
1760 ( #( #'onChangeSend:to:' ) includes: parentSelector) ifTrue:[ |
1760 ( #( #'onChangeSend:to:' ) includes: parentSelector) ifTrue:[ |
1761 symbolSelectorClass := self classOfNode:parent arguments second. |
1761 symbolSelectorClass := self classOfNode:parent arguments second. |
1762 ]. |
1762 ]. |
1763 |
1763 |
|
1764 "/ actually, I found that this gives good suggestions. |
|
1765 symbolSelectorClass isNil ifTrue:[ |
|
1766 symbolSelectorClass := classOrNil. |
|
1767 ]. |
|
1768 |
1764 symbolSelectorClass notNil ifTrue:[ |
1769 symbolSelectorClass notNil ifTrue:[ |
1765 symbolSelectorClass withAllSuperclassesDo:[:cls | |
1770 symbolSelectorClass withAllSuperclassesDo:[:cls | |
1766 cls ~~ Object ifTrue:[ |
1771 cls ~~ Object ifTrue:[ |
1767 cls ~~ Model ifTrue:[ |
1772 cls ~~ Model ifTrue:[ |
1768 cls methodDictionary keysDo:addSymbol. |
1773 cls methodDictionary keysDo:addSymbol. |