equal
deleted
inserted
replaced
763 selectionChanged |
763 selectionChanged |
764 |methods| |
764 |methods| |
765 |
765 |
766 methods := ((self selectedMethodNameIndices value) ? #()) collect:[:idx | methodList at:idx]. |
766 methods := ((self selectedMethodNameIndices value) ? #()) collect:[:idx | methodList at:idx]. |
767 methods notEmpty ifTrue:[ |
767 methods notEmpty ifTrue:[ |
768 lastSelectedMethods := methods asOrderedCollection. |
768 lastSelectedMethods := methods asOrderedCollection. |
769 ]. |
769 ]. |
770 "/ to allow reselect, change my valueHolder, even if the same collection |
770 "/ to allow reselect, change my valueHolder, even if the same collection |
771 "/ self selectedMethods value ~= methods ifTrue:[ |
771 "/ self selectedMethods value ~= methods ifTrue:[ |
772 self selectedMethods value:methods |
772 self selectedMethods value:methods isSequenceable |
773 "/ ] |
773 "/ ] |
774 |
774 |
775 "Created: / 5.2.2000 / 13:42:14 / cg" |
775 "Created: / 05-02-2000 / 13:42:14 / cg" |
776 "Modified: / 5.2.2000 / 23:32:20 / cg" |
776 "Modified: / 05-02-2000 / 23:32:20 / cg" |
|
777 "Modified: / 13-06-2013 / 11:41:23 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
777 ! |
778 ! |
778 |
779 |
779 selectionChangedByClick |
780 selectionChangedByClick |
780 "we are not interested in that - get another notification |
781 "we are not interested in that - get another notification |
781 via the changed valueHolder " |
782 via the changed valueHolder " |
839 ^ self |
840 ^ self |
840 ]. |
841 ]. |
841 cls := aParameter at:1. |
842 cls := aParameter at:1. |
842 sel := aParameter at:2. |
843 sel := aParameter at:2. |
843 mthd := cls compiledMethodAt:sel. |
844 mthd := cls compiledMethodAt:sel. |
844 (mthd isWrapped or:[mthd isMethodWithBreakpoints]) ifTrue:[ |
845 (mthd notNil and:[mthd isWrapped or:[mthd isMethodWithBreakpoints]]) ifTrue:[ |
845 (methodList includes:mthd originalMethod) ifTrue:[ |
846 (methodList includes:mthd originalMethod) ifTrue:[ |
846 methodList replaceAll:mthd originalMethod with:mthd. |
847 methodList replaceAll:mthd originalMethod with:mthd. |
847 lastSelectedMethods replaceAll:mthd originalMethod with:mthd. |
848 lastSelectedMethods notNil ifTrue:[ |
|
849 lastSelectedMethods replaceAll:mthd originalMethod with:mthd. |
|
850 ]. |
848 ] |
851 ] |
849 ]. |
852 ]. |
850 mustFlushInheritanceInfo := false. |
853 mustFlushInheritanceInfo := false. |
851 ]. |
854 ]. |
852 something == #newClass ifTrue:[ |
855 something == #newClass ifTrue:[ |
1024 selectorBag := Bag new. |
1027 selectorBag := Bag new. |
1025 entries := OrderedCollection new. |
1028 entries := OrderedCollection new. |
1026 enforceClassAndProtocolInList := false. |
1029 enforceClassAndProtocolInList := false. |
1027 anyMethodToWatch := false. |
1030 anyMethodToWatch := false. |
1028 "/ no longer filter those |
1031 "/ no longer filter those |
1029 packageFilterValue := packageFilter value. |
1032 "/ packageFilterValue := packageFilter value. |
1030 |
1033 |
1031 "/ generator generates nil-selector entries |
1034 "/ generator generates nil-selector entries |
1032 "/ to pass multiple-class and multiple-protocol info |
1035 "/ to pass multiple-class and multiple-protocol info |
1033 nameListEntryForExtensions := self class nameListEntryForExtensions. |
1036 nameListEntryForExtensions := self class nameListEntryForExtensions. |
1034 |
1037 |
1047 "/ allCategories add:cat. |
1050 "/ allCategories add:cat. |
1048 "/ ]. |
1051 "/ ]. |
1049 "/ JV: Filter method through package filter |
1052 "/ JV: Filter method through package filter |
1050 "/ but not, if it is an extension method and we are showing extensions |
1053 "/ but not, if it is an extension method and we are showing extensions |
1051 (mthd notNil |
1054 (mthd notNil |
1052 and:[ (mthd isSynthetic not or:[ self showSyntheticMethods value ]) |
1055 and:[ mthd isSynthetic not |
1053 and:[ sel notNil ]] |
1056 and:[ sel notNil ]] |
1054 ) ifTrue:[ |
1057 ) ifTrue:[ |
1055 (packageFilterValue isNil |
1058 (packageFilterValue isNil |
1056 or:[ (packageFilterValue includes:mthd package) |
1059 or:[ (packageFilterValue includes:mthd package) |
1057 or:[ categoryIsExtensionsPseudoCategory and:[ mthd isExtension] ]] |
1060 or:[ categoryIsExtensionsPseudoCategory and:[ mthd isExtension] ]] |
1259 lastShowClassFirst := doShowClassFirst. |
1262 lastShowClassFirst := doShowClassFirst. |
1260 lastShowCategory := doShowCategory. |
1263 lastShowCategory := doShowCategory. |
1261 ^ newNameList. |
1264 ^ newNameList. |
1262 |
1265 |
1263 "Created: / 05-02-2000 / 22:43:40 / cg" |
1266 "Created: / 05-02-2000 / 22:43:40 / cg" |
|
1267 "Modified: / 20-07-2010 / 11:21:15 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1264 "Modified: / 24-08-2010 / 20:34:09 / Jan Vrany <enter your email here>" |
1268 "Modified: / 24-08-2010 / 20:34:09 / Jan Vrany <enter your email here>" |
1265 "Modified: / 20-07-2012 / 20:00:58 / cg" |
1269 "Modified: / 20-07-2012 / 20:00:58 / cg" |
1266 "Modified: / 23-04-2013 / 00:41:24 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1267 ! |
1270 ! |
1268 |
1271 |
1269 makeDependent |
1272 makeDependent |
1270 Smalltalk addDependent:self. |
1273 Smalltalk addDependent:self. |
1271 "/ ChangeSet addDependent:self. |
1274 "/ ChangeSet addDependent:self. |
1603 "/ wrap icons (i.e. break- or trace points on the method) |
1606 "/ wrap icons (i.e. break- or trace points on the method) |
1604 "/ have higher prio ... |
1607 "/ have higher prio ... |
1605 "/ |
1608 "/ |
1606 (aMethod notNil and:[aMethod isWrapped]) ifTrue:[ |
1609 (aMethod notNil and:[aMethod isWrapped]) ifTrue:[ |
1607 (s endsWith:' !!') ifTrue:[ |
1610 (s endsWith:' !!') ifTrue:[ |
1608 s := s copyWithoutLast:2 |
1611 s := s copyButLast:2 |
1609 ]. |
1612 ]. |
1610 aMethod isBreakpointed ifTrue:[ |
1613 aMethod isBreakpointed ifTrue:[ |
1611 icn := self stopIcon |
1614 icn := self stopIcon |
1612 ] ifFalse:[ |
1615 ] ifFalse:[ |
1613 aMethod isTimed ifTrue:[ |
1616 aMethod isTimed ifTrue:[ |
1621 "/ |
1624 "/ |
1622 "/ breakpoint icons (i.e. break- or trace points inside) |
1625 "/ breakpoint icons (i.e. break- or trace points inside) |
1623 "/ |
1626 "/ |
1624 icn isNil ifTrue:[ |
1627 icn isNil ifTrue:[ |
1625 (aMethod notNil and:[aMethod isMethodWithBreakpoints]) ifTrue:[ |
1628 (aMethod notNil and:[aMethod isMethodWithBreakpoints]) ifTrue:[ |
1626 icn := self stopIcon |
1629 icn := self breakPointedIcon |
1627 ]. |
1630 ]. |
1628 ]. |
1631 ]. |
1629 |
1632 |
1630 icn isNil ifTrue:[ |
1633 icn isNil ifTrue:[ |
1631 self showImageResourceMethodsImages value ~~ false ifTrue:[ |
1634 self showImageResourceMethodsImages value ~~ false ifTrue:[ |
1669 lastResultOrNil notNil ifTrue:[ |
1672 lastResultOrNil notNil ifTrue:[ |
1670 |state| |
1673 |state| |
1671 |
1674 |
1672 state := lastResultOrNil result. |
1675 state := lastResultOrNil result. |
1673 (state == TestResult statePass) ifTrue:[ |
1676 (state == TestResult statePass) ifTrue:[ |
1674 icn := SystemBrowser testCasePassedIcon |
1677 icn := ToolbarIconLibrary testCasePassedIcon |
1675 ] ifFalse:[ |
1678 ] ifFalse:[ |
1676 ((state == TestResult stateError) |
1679 (state == TestResult stateError) ifTrue:[ |
1677 or:[ (state == TestResult stateFail) ]) ifTrue:[ |
1680 icn := ToolbarIconLibrary testCaseErrorIcon |
1678 icn := SystemBrowser testCaseFailedIcon |
|
1679 ] ifFalse:[ |
1681 ] ifFalse:[ |
1680 (state == TestResult stateSkip) ifTrue:[ |
1682 (state == TestResult stateFail) ifTrue:[ |
1681 icn := SystemBrowser testCaseSkippedIcon |
1683 icn := ToolbarIconLibrary testCaseFailedIcon |
|
1684 ] ifFalse:[ |
|
1685 icn := ToolbarIconLibrary testCaseSkippedIcon |
1682 ] |
1686 ] |
1683 ] |
1687 ] |
1684 ] |
1688 ] |
1685 ]. |
1689 ]. |
1686 ]. |
1690 ]. |
1784 ]. |
1788 ]. |
1785 ^ s |
1789 ^ s |
1786 |
1790 |
1787 "Created: / 22-10-1996 / 19:51:00 / cg" |
1791 "Created: / 22-10-1996 / 19:51:00 / cg" |
1788 "Modified: / 15-08-2009 / 13:13:32 / Jan Vrany <vranyj1@fel.cvut.cz>" |
1792 "Modified: / 15-08-2009 / 13:13:32 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
1793 "Modified: / 17-11-2011 / 20:51:18 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1789 "Modified: / 07-03-2012 / 19:06:09 / cg" |
1794 "Modified: / 07-03-2012 / 19:06:09 / cg" |
1790 "Modified: / 10-04-2013 / 11:45:18 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1791 ! ! |
1795 ! ! |
1792 |
1796 |
1793 !MethodList methodsFor:'private-watching'! |
1797 !MethodList methodsFor:'private-watching'! |
1794 |
1798 |
1795 startWatchProcess |
1799 startWatchProcess |