equal
deleted
inserted
replaced
2087 and:[self classList value includesIdentical:owner]) ifTrue:[ |
2087 and:[self classList value includesIdentical:owner]) ifTrue:[ |
2088 "/ namespace |
2088 "/ namespace |
2089 indent := (nm count:[:char | char == $:]) // 2. |
2089 indent := (nm count:[:char | char == $:]) // 2. |
2090 indent > 0 ifTrue:[ |
2090 indent > 0 ifTrue:[ |
2091 indent := indent * self indentPerPrivacyLevel. |
2091 indent := indent * self indentPerPrivacyLevel. |
2092 indentString := String new:indent withAll:Character space. |
2092 indentString := String new:indent. |
2093 sortByNameAndInheritanceValue ifTrue:[ |
2093 sortByNameAndInheritanceValue ifTrue:[ |
2094 nm := (self nameListIndentStringFor:owner) |
2094 nm := (self nameListIndentStringFor:owner) |
2095 , indentString , '::' , aClass nameWithoutPrefix. |
2095 , indentString , '::' , aClass nameWithoutPrefix. |
2096 ] ifFalse:[ |
2096 ] ifFalse:[ |
2097 nm := indentString , '::' , aClass nameWithoutPrefix |
2097 nm := indentString , '::' , aClass nameWithoutPrefix |
2102 ^ nm |
2102 ^ nm |
2103 |
2103 |
2104 "Modified: / 04-07-2011 / 19:00:45 / cg" |
2104 "Modified: / 04-07-2011 / 19:00:45 / cg" |
2105 "Modified: / 27-03-2015 / 16:23:15 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2105 "Modified: / 27-03-2015 / 16:23:15 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2106 "Modified: / 22-05-2017 / 13:32:22 / stefan" |
2106 "Modified: / 22-05-2017 / 13:32:22 / stefan" |
|
2107 "Modified: / 24-03-2019 / 09:58:35 / Claus Gittinger" |
2107 ! |
2108 ! |
2108 |
2109 |
2109 nameListIndentStringFor:aClass |
2110 nameListIndentStringFor:aClass |
2110 |indent indentString cls| |
2111 |indent indentString cls| |
2111 |
2112 |
2124 ' ' |
2125 ' ' |
2125 ' ' |
2126 ' ' |
2126 ' ' |
2127 ' ' |
2127 ' ' ) at:indent + 1. |
2128 ' ' ) at:indent + 1. |
2128 ] ifFalse:[ |
2129 ] ifFalse:[ |
2129 indentString := String new:indent * 2 withAll:Character space. |
2130 indentString := String new:indent * 2. |
2130 ]. |
2131 ]. |
2131 ]. |
2132 ]. |
2132 ^ indentString |
2133 ^ indentString |
2133 |
2134 |
2134 "Created: / 22-05-2017 / 13:28:31 / stefan" |
2135 "Created: / 22-05-2017 / 13:28:31 / stefan" |
|
2136 "Modified: / 24-03-2019 / 09:58:43 / Claus Gittinger" |
2135 ! ! |
2137 ! ! |
2136 |
2138 |
2137 !ClassList methodsFor:'queries'! |
2139 !ClassList methodsFor:'queries'! |
2138 |
2140 |
2139 supportsSearch |
2141 supportsSearch |