equal
deleted
inserted
replaced
1 " |
1 " |
2 COPYRIGHT (c) 2000 by eXept Software AG |
2 COPYRIGHT (c) 2000 by eXept Software AG |
3 COPYRIGHT (c) 2016-2017 Jan Vrany |
3 COPYRIGHT (c) 2016-2017 Jan Vrany |
|
4 COPYRIGHT (c) 2022 LabWare |
4 All Rights Reserved |
5 All Rights Reserved |
5 |
6 |
6 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
7 only in accordance with the terms of that license and with the |
8 only in accordance with the terms of that license and with the |
8 inclusion of the above copyright notice. This software may not |
9 inclusion of the above copyright notice. This software may not |
32 |
33 |
33 copyright |
34 copyright |
34 " |
35 " |
35 COPYRIGHT (c) 2000 by eXept Software AG |
36 COPYRIGHT (c) 2000 by eXept Software AG |
36 COPYRIGHT (c) 2016-2017 Jan Vrany |
37 COPYRIGHT (c) 2016-2017 Jan Vrany |
|
38 COPYRIGHT (c) 2022 LabWare |
37 All Rights Reserved |
39 All Rights Reserved |
38 |
40 |
39 This software is furnished under a license and may be used |
41 This software is furnished under a license and may be used |
40 only in accordance with the terms of that license and with the |
42 only in accordance with the terms of that license and with the |
41 inclusion of the above copyright notice. This software may not |
43 inclusion of the above copyright notice. This software may not |
1770 ]. |
1772 ]. |
1771 (icn isNil and:[cls notNil]) ifTrue:[ |
1773 (icn isNil and:[cls notNil]) ifTrue:[ |
1772 "/ (selector isSymbol and:[selector startsWith:'test']) ifTrue:[ |
1774 "/ (selector isSymbol and:[selector startsWith:'test']) ifTrue:[ |
1773 (((cls isTestCaseLike) and:[cls isAbstract not]) |
1775 (((cls isTestCaseLike) and:[cls isAbstract not]) |
1774 or:[self showSyntheticMethods value and:[aMethod isSynthetic]]) ifTrue:[ |
1776 or:[self showSyntheticMethods value and:[aMethod isSynthetic]]) ifTrue:[ |
1775 (cls isTestCaseLike and:[cls isTestSelector:selector]) ifTrue:[ |
1777 (cls isTestCaseLike and:[cls allTestSelectors includes:selector]) ifTrue:[ |
1776 "JV@2011-11-17: Show thumbs even if not all test were run" |
1778 "JV@2011-11-17: Show thumbs even if not all test were run" |
1777 |
1779 |
1778 lastResultOrNil := cls asTestCase rememberedOutcomeFor:selector. |
1780 lastResultOrNil := cls asTestCase rememberedOutcomeFor:selector. |
1779 lastResultOrNil notNil ifTrue:[ |
1781 lastResultOrNil notNil ifTrue:[ |
1780 |state| |
1782 |state| |
1894 |
1896 |
1895 "Created: / 22-10-1996 / 19:51:00 / cg" |
1897 "Created: / 22-10-1996 / 19:51:00 / cg" |
1896 "Modified: / 15-08-2009 / 13:13:32 / Jan Vrany <vranyj1@fel.cvut.cz>" |
1898 "Modified: / 15-08-2009 / 13:13:32 / Jan Vrany <vranyj1@fel.cvut.cz>" |
1897 "Modified: / 07-03-2012 / 19:06:09 / cg" |
1899 "Modified: / 07-03-2012 / 19:06:09 / cg" |
1898 "Modified: / 27-07-2016 / 00:05:45 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1900 "Modified: / 27-07-2016 / 00:05:45 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1901 "Modified: / 07-09-2022 / 15:06:17 / Jan Vrany <jan.vrany@labware.com>" |
1899 ! |
1902 ! |
1900 |
1903 |
1901 resourceIconForMethod:aMethod |
1904 resourceIconForMethod:aMethod |
1902 ^ SystemBrowser resourceIconForMethod:aMethod |
1905 ^ SystemBrowser resourceIconForMethod:aMethod |
1903 |
1906 |