953 "we are not interested in that - get another notification |
953 "we are not interested in that - get another notification |
954 via the changed valueHolder " |
954 via the changed valueHolder " |
955 ! |
955 ! |
956 |
956 |
957 update:something with:aParameter from:changedObject |
957 update:something with:aParameter from:changedObject |
958 |cls clsName sel mthd mustFlushInheritanceInfo| |
958 |cls clsName sel mthd mustFlushInheritanceInfo original| |
959 |
959 |
960 mustFlushInheritanceInfo := true. |
960 mustFlushInheritanceInfo := true. |
961 |
961 |
962 "/ some can be ignored immediately |
962 "/ some can be ignored immediately |
963 changedObject == environment ifTrue:[ |
963 changedObject == environment ifTrue:[ |
998 ]. |
998 ]. |
999 mustFlushInheritanceInfo := false. |
999 mustFlushInheritanceInfo := false. |
1000 ]. |
1000 ]. |
1001 |
1001 |
1002 (something == #methodTrap |
1002 (something == #methodTrap |
1003 or:[ something == #methodPrivacy |
1003 or:[ something == #methodPrivacy |
1004 or:[ something == #lastTestRunResult] ]) ifTrue:[ |
1004 or:[ something == #lastTestRunResult] ] |
|
1005 ) ifTrue:[ |
1005 cls := aParameter at:1. |
1006 cls := aParameter at:1. |
1006 (classes includesIdentical:cls) ifFalse:[ ^ self]. |
1007 (classes includesIdentical:cls) ifFalse:[ ^ self]. |
1007 |
1008 |
1008 sel := aParameter at:2. |
1009 sel := aParameter at:2. |
1009 mthd := cls compiledMethodAt:sel. |
1010 mthd := cls compiledMethodAt:sel. |
1010 (mthd notNil and:[mthd isWrapped or:[mthd isMethodWithBreakpoints]]) ifTrue:[ |
1011 mthd notNil ifTrue:[ |
1011 |original| |
1012 original := mthd originalMethodIfWrapped. |
1012 |
|
1013 original := mthd originalMethod. |
|
1014 (methodList includesIdentical:original) ifTrue:[ |
1013 (methodList includesIdentical:original) ifTrue:[ |
1015 methodList replaceAll:original with:mthd. |
1014 methodList replaceAll:original with:mthd. |
1016 lastSelectedMethods notNil ifTrue:[ |
1015 lastSelectedMethods notNil ifTrue:[ |
1017 lastSelectedMethods replaceAll:original with:mthd. |
1016 lastSelectedMethods replaceAll:original with:mthd. |
1018 ]. |
1017 ]. |
1439 ]. |
1438 ]. |
1440 ]. |
1439 ]. |
1441 sortByClass := doShowClass and:[ sortBy value == #class ]. |
1440 sortByClass := doShowClass and:[ sortBy value == #class ]. |
1442 self sortEntries:entries showingClass:doShowClass. |
1441 self sortEntries:entries showingClass:doShowClass. |
1443 ]. |
1442 ]. |
|
1443 |
1444 methods := OrderedCollection new:(entries size). |
1444 methods := OrderedCollection new:(entries size). |
1445 methodNameList := OrderedCollection new:(entries size). |
1445 methodNameList := OrderedCollection new:(entries size). |
1446 |
|
1447 newNameList := OrderedCollection new:(entries size). |
1446 newNameList := OrderedCollection new:(entries size). |
1448 |
1447 |
1449 "/ multiple classes must add the className for some |
1448 "/ multiple classes must add the className for some |
1450 |
1449 |
1451 entries do:[:entry | |
1450 entries do:[:entry | |
1472 showCategory:doShowCategory |
1471 showCategory:doShowCategory |
1473 classFirst:doShowClassFirst |
1472 classFirst:doShowClassFirst |
1474 suppressInheritanceInfo:suppressInheritanceInfoNow. |
1473 suppressInheritanceInfo:suppressInheritanceInfoNow. |
1475 |
1474 |
1476 newNameList add:s. |
1475 newNameList add:s. |
1477 |
|
1478 methods add:mthd. |
1476 methods add:mthd. |
1479 methodNameList add:{ cls name . sel}. |
1477 methodNameList add:{ cls name . sel}. |
1480 ]. |
1478 ]. |
1481 |
1479 |
1482 numFiltered ~~ 0 ifTrue:[ |
1480 numFiltered ~~ 0 ifTrue:[ |