equal
deleted
inserted
replaced
1837 "/ ( isVersionMethod not |
1837 "/ ( isVersionMethod not |
1838 "/ and:[ isDocumentationMethod not |
1838 "/ and:[ isDocumentationMethod not |
1839 "/ and:[ mclass allSubclasses contains:[:cls | cls includesSelector:selector ]]]) |
1839 "/ and:[ mclass allSubclasses contains:[:cls | cls includesSelector:selector ]]]) |
1840 "/ ). |
1840 "/ ). |
1841 |
1841 |
1842 info isSubclassResponsibility:( aMethod sendsAnySelector:#( #subclassResponsibility #subclassResponsibility: )). |
1842 info isSubclassResponsibility:( aMethod isSubclassResponsibility ). |
1843 info isAnnotated:(aMethod hasAnnotation). |
1843 info isAnnotated:(aMethod hasAnnotation). |
1844 |
1844 |
1845 MethodInfoCacheAccessLock critical:[ |
1845 MethodInfoCacheAccessLock critical:[ |
1846 MethodInfoCache at:aMethod "(mclass name,'>>',selector)" put:info |
1846 MethodInfoCache at:aMethod "(mclass name,'>>',selector)" put:info |
1847 ]. |
1847 ]. |
1849 ]. |
1849 ]. |
1850 ]. |
1850 ]. |
1851 ^ info |
1851 ^ info |
1852 |
1852 |
1853 "Created: / 08-08-2011 / 18:18:14 / cg" |
1853 "Created: / 08-08-2011 / 18:18:14 / cg" |
1854 "Modified: / 05-02-2017 / 01:28:20 / cg" |
1854 "Modified: / 16-07-2017 / 11:26:12 / cg" |
1855 ! |
1855 ! |
1856 |
1856 |
1857 methodIsMarkedAsLong:aMethod |
1857 methodIsMarkedAsLong:aMethod |
1858 "if true, it will be also categorized under the pseudo category 'long'" |
1858 "if true, it will be also categorized under the pseudo category 'long'" |
1859 |
1859 |