equal
deleted
inserted
replaced
440 ^ self. |
440 ^ self. |
441 ]. |
441 ]. |
442 |
442 |
443 something == #methodCoverageInfo ifTrue:[ |
443 something == #methodCoverageInfo ifTrue:[ |
444 "/ already checked if it is one of my classes |
444 "/ already checked if it is one of my classes |
445 listValid == true ifTrue:[ |
445 self updateListEntryFor:aParameter. |
446 self invalidateList. |
446 "/ self enqueueDelayedUpdateList. |
447 ]. |
447 "/ listValid == true ifTrue:[ |
|
448 "/ self invalidateList. |
|
449 "/ ]. |
448 ^ self. |
450 ^ self. |
449 ]. |
451 ]. |
450 |
452 |
451 (something == #methodTrap |
453 (something == #methodTrap |
452 or:[ something == #lastTestRunResult |
454 or:[ something == #lastTestRunResult |
674 "/ ]. |
676 "/ ]. |
675 super delayedUpdate:something with:aParameter from:changedObject |
677 super delayedUpdate:something with:aParameter from:changedObject |
676 |
678 |
677 "Created: / 05-02-2000 / 13:42:14 / cg" |
679 "Created: / 05-02-2000 / 13:42:14 / cg" |
678 "Modified: / 22-07-2011 / 18:12:23 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
680 "Modified: / 22-07-2011 / 18:12:23 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
679 "Modified: / 04-06-2012 / 16:59:43 / cg" |
681 "Modified: / 05-06-2012 / 23:47:15 / cg" |
680 ! |
682 ! |
681 |
683 |
682 selectedMethodsChanged |
684 selectedMethodsChanged |
683 "the set of selected methods has changed; |
685 "the set of selected methods has changed; |
684 update the selection-index collection (for the selectionInListView)" |
686 update the selection-index collection (for the selectionInListView)" |
787 "/ ignore here - methodCategoryList will tell me if required |
789 "/ ignore here - methodCategoryList will tell me if required |
788 ^ self |
790 ^ self |
789 ]. |
791 ]. |
790 |
792 |
791 something == #methodCoverageInfo ifTrue:[ |
793 something == #methodCoverageInfo ifTrue:[ |
792 listValid ifFalse:[^ self]. |
|
793 self showCoverageInformation value ifFalse:[^ self]. |
794 self showCoverageInformation value ifFalse:[^ self]. |
794 mthd := aParameter. |
795 mthd := aParameter. |
795 (classes notNil and:[classes includesIdentical:mthd mclass]) ifFalse:[ |
796 (classes notNil and:[classes includesIdentical:mthd mclass]) ifFalse:[ |
796 ^ self "/ I dont care for that class |
797 ^ self "/ I dont care for that class |
797 ]. |
798 ]. |
798 listValid ifFalse:[^ self]. |
|
799 ]. |
799 ]. |
800 |
800 |
801 (something == #methodTrap |
801 (something == #methodTrap |
802 or:[ something == #methodPrivacy |
802 or:[ something == #methodPrivacy |
803 or:[ something == #lastTestRunResult] ]) ifTrue:[ |
803 or:[ something == #lastTestRunResult] ]) ifTrue:[ |
867 ]. |
867 ]. |
868 |
868 |
869 super update:something with:aParameter from:changedObject |
869 super update:something with:aParameter from:changedObject |
870 |
870 |
871 "Modified: / 17-11-2011 / 19:22:48 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
871 "Modified: / 17-11-2011 / 19:22:48 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
872 "Modified: / 04-06-2012 / 17:05:25 / cg" |
872 "Modified: / 05-06-2012 / 23:41:50 / cg" |
873 ! ! |
873 ! ! |
874 |
874 |
875 !MethodList methodsFor:'drag & drop'! |
875 !MethodList methodsFor:'drag & drop'! |
876 |
876 |
877 canDropContext:aDropContext |
877 canDropContext:aDropContext |
1745 ! ! |
1745 ! ! |
1746 |
1746 |
1747 !MethodList class methodsFor:'documentation'! |
1747 !MethodList class methodsFor:'documentation'! |
1748 |
1748 |
1749 version |
1749 version |
1750 ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.64 2012-06-04 15:45:36 cg Exp $' |
1750 ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.65 2012-06-05 21:48:53 cg Exp $' |
1751 ! |
1751 ! |
1752 |
1752 |
1753 version_CVS |
1753 version_CVS |
1754 ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.64 2012-06-04 15:45:36 cg Exp $' |
1754 ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.65 2012-06-05 21:48:53 cg Exp $' |
1755 ! ! |
1755 ! ! |