49285 methodsToRemove := self selectedMethodsValue copy. |
49285 methodsToRemove := self selectedMethodsValue copy. |
49286 |
49286 |
49287 self withSearchCursorDo:[ |
49287 self withSearchCursorDo:[ |
49288 "/ search through all of the system |
49288 "/ search through all of the system |
49289 environment allMethodsDo:[:mthd | |
49289 environment allMethodsDo:[:mthd | |
49290 |sent resources newFound any| |
49290 |sent newFound any| |
49291 |
49291 |
49292 any := false. |
49292 any := false. |
49293 mthd literalsDo:[:eachLiteral | |
49293 mthd literalsDo:[:eachLiteral | |
49294 (selectorsToRemove includes:eachLiteral) ifTrue:[any := true]. |
49294 (selectorsToRemove includes:eachLiteral) ifTrue:[any := true]. |
49295 "/ could be an array (as in a spec) |
49295 "/ could be an array (as in a spec) |
49296 eachLiteral isArray ifTrue:[ |
49296 eachLiteral isArray ifTrue:[ |
49297 selectorsToRemove contains:[:selToRemove | |
49297 selectorsToRemove do:[:selToRemove | |
49298 (eachLiteral refersToLiteral:selToRemove) ifTrue:[ |
49298 (eachLiteral refersToLiteral:selToRemove) ifTrue:[ |
49299 possiblyUsedAsSelector add:mthd. |
49299 possiblyUsedAsSelector add:mthd. |
49300 ] |
49300 ]. |
49301 ] |
49301 ]. |
49302 ] |
49302 ]. |
49303 ]. |
49303 ]. |
49304 any ifTrue:[ |
49304 any ifTrue:[ |
49305 selectorsToRemove do:[:eachSelectorToRemove | |
49305 selectorsToRemove do:[:eachSelectorToRemove | |
49306 sent := mthd messagesSent. |
49306 sent := mthd messagesSent. |
49307 (sent includes:eachSelectorToRemove) ifTrue:[ |
49307 (sent includes:eachSelectorToRemove) ifTrue:[ |
49386 "/ fall into remove |
49386 "/ fall into remove |
49387 ]. |
49387 ]. |
49388 self doRemoveMethodsUnconfirmed:methodsToRemove |
49388 self doRemoveMethodsUnconfirmed:methodsToRemove |
49389 |
49389 |
49390 "Modified: / 11-05-2012 / 10:00:46 / cg" |
49390 "Modified: / 11-05-2012 / 10:00:46 / cg" |
|
49391 "Modified (format): / 14-09-2017 / 14:13:13 / mawalch" |
49391 ! |
49392 ! |
49392 |
49393 |
49393 selectorMenuSelectMethodsWithString |
49394 selectorMenuSelectMethodsWithString |
49394 "select all methods containing a particular string" |
49395 "select all methods containing a particular string" |
49395 |
49396 |