12 "{ Package: 'stx:libtool' }" |
12 "{ Package: 'stx:libtool' }" |
13 |
13 |
14 "{ NameSpace: Tools }" |
14 "{ NameSpace: Tools }" |
15 |
15 |
16 BrowserList subclass:#MethodList |
16 BrowserList subclass:#MethodList |
17 instanceVariableNames:'classes selectedMethodNameIndices methodList lastSelectedMethods |
17 instanceVariableNames:'classes selectedMethodNameIndices methodList lastSelectedMethods |
18 browserNameList variableFilter filterClassVars updateProcess |
18 browserNameList variableFilter filterClassVars updateProcess |
19 lastShowClass lastShowCategory lastShowClassFirst |
19 lastShowClass lastShowCategory lastShowClassFirst |
20 showMethodInheritance lastMethodClass lastMethodClassesSubclasses |
20 showMethodInheritance lastMethodClass lastMethodClassesSubclasses |
21 classAndSelectorsRedefinedBySubclassesOfClass showClass |
21 classAndSelectorsRedefinedBySubclassesOfClass showClass |
22 showMethodComplexity showMethodTypeIcon |
22 showMethodComplexity showMethodTypeIcon |
23 showImageResourceMethodsImages' |
23 showImageResourceMethodsImages' |
24 classVariableNames:'ShowComplexityValue' |
24 classVariableNames:'ShowComplexityValue' |
25 poolDictionaries:'' |
25 poolDictionaries:'' |
26 category:'Interface-Browsers-New' |
26 category:'Interface-Browsers-New' |
27 ! |
27 ! |
28 |
28 |
29 !MethodList class methodsFor:'documentation'! |
29 !MethodList class methodsFor:'documentation'! |
30 |
30 |
31 copyright |
31 copyright |
756 "Modified: / 5.2.2000 / 23:32:20 / cg" |
756 "Modified: / 5.2.2000 / 23:32:20 / cg" |
757 ! |
757 ! |
758 |
758 |
759 selectionChangedByClick |
759 selectionChangedByClick |
760 "we are not interested in that - get another notification |
760 "we are not interested in that - get another notification |
761 via the changed valueHolder" |
761 via the changed valueHolder " |
762 |
|
763 ! |
762 ! |
764 |
763 |
765 update:something with:aParameter from:changedObject |
764 update:something with:aParameter from:changedObject |
766 |cls sel mthd mustFlushInheritanceInfo| |
765 |cls sel mthd mustFlushInheritanceInfo| |
767 |
766 |
808 ]. |
807 ]. |
809 |
808 |
810 (something == #methodTrap |
809 (something == #methodTrap |
811 or:[ something == #methodPrivacy |
810 or:[ something == #methodPrivacy |
812 or:[ something == #lastTestRunResult] ]) ifTrue:[ |
811 or:[ something == #lastTestRunResult] ]) ifTrue:[ |
813 cls := aParameter at:1. |
|
814 (classes includesIdentical:cls) ifFalse:[ |
|
815 ^ self "/ I dont care for that class |
|
816 ]. |
|
817 self window shown ifFalse:[ |
812 self window shown ifFalse:[ |
818 "JV@2011-11-17: Do not break the dependency here, |
813 "JV@2011-11-17: Do not break the dependency here, |
819 because then the window won't get updates once |
814 because then the window won't get updates once |
820 deiconified -> leads to confusing behavior |
815 deiconified -> leads to confusing behavior |
821 (browser shows obsolete info)" |
816 (browser shows obsolete info)" |
822 "/changedObject removeDependent:self. "/ ????? |
817 "/changedObject removeDependent:self. "/ ????? |
823 self invalidateList. |
818 self invalidateList. |
824 ^ self |
819 ^ self |
825 ]. |
820 ]. |
|
821 cls := aParameter at:1. |
826 sel := aParameter at:2. |
822 sel := aParameter at:2. |
827 mthd := cls compiledMethodAt:sel. |
823 mthd := cls compiledMethodAt:sel. |
828 (mthd isWrapped or:[mthd isMethodWithBreakpoints]) ifTrue:[ |
824 (mthd isWrapped or:[mthd isMethodWithBreakpoints]) ifTrue:[ |
829 (methodList includes:mthd originalMethod) ifTrue:[ |
825 (methodList includes:mthd originalMethod) ifTrue:[ |
830 methodList replaceAll:mthd originalMethod with:mthd. |
826 methodList replaceAll:mthd originalMethod with:mthd. |