equal
deleted
inserted
replaced
1721 showClass ifTrue:[ |
1721 showClass ifTrue:[ |
1722 showClassFirst ifFalse:[ |
1722 showClassFirst ifFalse:[ |
1723 s := s , ' [' , cls name allBold , ']'. |
1723 s := s , ' [' , cls name allBold , ']'. |
1724 ] |
1724 ] |
1725 ]. |
1725 ]. |
1726 showCategory ifTrue:[ |
1726 (showCategory and:[aMethod mclass supportsMethodCategories]) ifTrue:[ |
1727 cat := aMethod category. |
1727 cat := aMethod category. |
1728 cat notNil ifTrue:[ |
1728 cat notNil ifTrue:[ |
1729 s := s , ' {' , (cat "asText allItalic" colorizeAllWith:Color grey), '}' |
1729 s := s , ' {' , (cat "asText allItalic" colorizeAllWith:Color grey), '}' |
1730 ] |
1730 ] |
1731 ]. |
1731 ]. |
1815 ]. |
1815 ]. |
1816 ^ s |
1816 ^ s |
1817 |
1817 |
1818 "Created: / 22-10-1996 / 19:51:00 / cg" |
1818 "Created: / 22-10-1996 / 19:51:00 / cg" |
1819 "Modified: / 15-08-2009 / 13:13:32 / Jan Vrany <vranyj1@fel.cvut.cz>" |
1819 "Modified: / 15-08-2009 / 13:13:32 / Jan Vrany <vranyj1@fel.cvut.cz>" |
1820 "Modified: / 17-11-2011 / 20:51:18 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1821 "Modified: / 07-03-2012 / 19:06:09 / cg" |
1820 "Modified: / 07-03-2012 / 19:06:09 / cg" |
|
1821 "Modified: / 16-10-2013 / 01:10:11 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1822 ! ! |
1822 ! ! |
1823 |
1823 |
1824 !MethodList methodsFor:'private-watching'! |
1824 !MethodList methodsFor:'private-watching'! |
1825 |
1825 |
1826 startWatchProcess |
1826 startWatchProcess |