equal
deleted
inserted
replaced
1579 icn isNil ifTrue:[ |
1579 icn isNil ifTrue:[ |
1580 (selector startsWith:'test') ifTrue:[ |
1580 (selector startsWith:'test') ifTrue:[ |
1581 ((cls isSubclassOf:TestCase) |
1581 ((cls isSubclassOf:TestCase) |
1582 and:[cls isAbstract not]) ifTrue:[ |
1582 and:[cls isAbstract not]) ifTrue:[ |
1583 cls lastTestRunResultOrNil "== false" notNil ifTrue:[ |
1583 cls lastTestRunResultOrNil "== false" notNil ifTrue:[ |
1584 (cls testSelectorFailed:selector) ifTrue:[ |
1584 ((cls testSelectorFailed:selector) or:[(cls testSelectorError:selector)]) ifTrue:[ |
1585 icn := SystemBrowser testCaseFailedIcon |
1585 icn := SystemBrowser testCaseFailedIcon |
1586 ] ifFalse:[ |
1586 ] ifFalse:[ |
1587 (cls testSelectorPassed: selector) ifTrue: |
1587 (cls testSelectorPassed: selector) ifTrue: |
1588 [icn := SystemBrowser testCasePassedIcon] |
1588 [icn := SystemBrowser testCasePassedIcon] |
1589 ]. |
1589 ]. |
1686 ^ s |
1686 ^ s |
1687 |
1687 |
1688 "Created: / 22-10-1996 / 19:51:00 / cg" |
1688 "Created: / 22-10-1996 / 19:51:00 / cg" |
1689 "Modified: / 30-04-2010 / 11:54:32 / cg" |
1689 "Modified: / 30-04-2010 / 11:54:32 / cg" |
1690 "Modified: / 15-08-2009 / 13:13:32 / Jan Vrany <vranyj1@fel.cvut.cz>" |
1690 "Modified: / 15-08-2009 / 13:13:32 / Jan Vrany <vranyj1@fel.cvut.cz>" |
1691 "Modified: / 15-03-2010 / 18:16:54 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1691 "Modified: / 21-08-2011 / 14:46:27 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1692 ! ! |
1692 ! ! |
1693 |
1693 |
1694 !MethodList methodsFor:'private-watching'! |
1694 !MethodList methodsFor:'private-watching'! |
1695 |
1695 |
1696 startWatchProcess |
1696 startWatchProcess |
1736 ! ! |
1736 ! ! |
1737 |
1737 |
1738 !MethodList class methodsFor:'documentation'! |
1738 !MethodList class methodsFor:'documentation'! |
1739 |
1739 |
1740 version |
1740 version |
1741 ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.58 2011-08-18 00:16:52 cg Exp $' |
1741 ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.59 2011-08-21 13:48:35 vrany Exp $' |
1742 ! |
1742 ! |
1743 |
1743 |
1744 version_CVS |
1744 version_CVS |
1745 ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.58 2011-08-18 00:16:52 cg Exp $' |
1745 ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.59 2011-08-21 13:48:35 vrany Exp $' |
1746 ! ! |
1746 ! ! |