1778 |
1778 |
1779 printStringForBrowserWithSelector:selector inClass:aClass |
1779 printStringForBrowserWithSelector:selector inClass:aClass |
1780 "return a printString to represent myself to the user in a browser. |
1780 "return a printString to represent myself to the user in a browser. |
1781 Defined here to allow for browsers to deal with nonStandard pseudoMethods" |
1781 Defined here to allow for browsers to deal with nonStandard pseudoMethods" |
1782 |
1782 |
1783 |s privInfo moreInfo p i n cls isInChangeSet mthdPackage| |
1783 |s privInfo moreInfo p i n cls currentChangeSet isInChangeSet mthdPackage| |
1784 |
1784 |
1785 moreInfo := ''. |
1785 moreInfo := ''. |
1786 privInfo := ''. |
1786 privInfo := ''. |
1787 |
1787 |
1788 self isWrapped ifTrue:[ |
1788 self isWrapped ifTrue:[ |
1839 s := selector. |
1839 s := selector. |
1840 (cls := aClass) isNil ifTrue:[ |
1840 (cls := aClass) isNil ifTrue:[ |
1841 cls := self containingClass |
1841 cls := self containingClass |
1842 ]. |
1842 ]. |
1843 |
1843 |
1844 isInChangeSet := (ChangeSet current changedClasses includes:cls) |
1844 currentChangeSet := ChangeSet current. |
1845 and:[ ChangeSet current includesChangeForClass:cls selector:selector ]. |
1845 isInChangeSet := (currentChangeSet changedClasses includes:cls) |
|
1846 and:[ currentChangeSet includesChangeForClass:cls selector:selector ]. |
|
1847 |
1846 isInChangeSet ifTrue:[ |
1848 isInChangeSet ifTrue:[ |
1847 s := s asText emphasisAllAdd:(SystemBrowser emphasisForChangedCode) |
1849 s := s asText emphasisAllAdd:(UserPreferences current emphasisForChangedCode) |
1848 ]. |
1850 ]. |
1849 |
1851 |
1850 (cls isNil or:[(mthdPackage := self package) ~= cls package]) ifTrue:[ |
1852 (cls isNil or:[(mthdPackage := self package) ~= cls package]) ifTrue:[ |
1851 mthdPackage ~= Project defaultProject package ifTrue:[ |
1853 mthdPackage ~= Project defaultProject package ifTrue:[ |
1852 p := ' [ ' , (mthdPackage ? '???') allItalic , ' ] '. |
1854 p := ' [ ' , (mthdPackage ? '???') allItalic , ' ] '. |
1853 p := p asText emphasisAllAdd:(SystemBrowser emphasisForDifferentPackage). |
1855 p := p asText emphasisAllAdd:(UserPreferences current emphasisForDifferentPackage). |
1854 isInChangeSet ifFalse:[ |
1856 isInChangeSet ifFalse:[ |
1855 s := s asText emphasisAllAdd:(SystemBrowser emphasisForDifferentPackage). |
1857 s := s asText emphasisAllAdd:(UserPreferences current emphasisForDifferentPackage). |
1856 ]. |
1858 ]. |
1857 s := s , ' ' , p |
1859 s := s , ' ' , p |
1858 ]. |
1860 ]. |
1859 ]. |
1861 ]. |
1860 |
1862 |
1861 moreInfo size == 0 ifTrue:[^ s]. |
1863 moreInfo size == 0 ifTrue:[^ s]. |
1862 |
1864 |
1863 s := selector , moreInfo. |
1865 s := selector , moreInfo. |
1864 |
1866 |
1865 self isInvalid ifTrue:[ |
1867 self isInvalid ifTrue:[ |
1866 s := s asText emphasizeAllWith:(SystemBrowser emphasisForObsoleteCode). |
1868 s := s asText emphasizeAllWith:(UserPreferences current emphasisForObsoleteCode). |
1867 ]. |
1869 ]. |
1868 ^ s |
1870 ^ s |
1869 |
1871 |
1870 "Modified: / 23.1.1998 / 13:15:15 / stefan" |
1872 "Modified: / 23.1.1998 / 13:15:15 / stefan" |
1871 "Created: / 5.2.2000 / 22:55:56 / cg" |
1873 "Created: / 5.2.2000 / 22:55:56 / cg" |