equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 2000 by eXept Software AG |
2 COPYRIGHT (c) 2000 by eXept Software AG |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
1111 missingRequiredProtocols ifTrue:[ |
1109 missingRequiredProtocols ifTrue:[ |
1112 requiredProtocolForClass := SmalltalkCodeGeneratorTool missingRequiredProtocolFor:aClass. |
1110 requiredProtocolForClass := SmalltalkCodeGeneratorTool missingRequiredProtocolFor:aClass. |
1113 requiredProtocolForClass do:[:sel | |
1111 requiredProtocolForClass do:[:sel | |
1114 |selectorInRed missingMethodPlaceHolder| |
1112 |selectorInRed missingMethodPlaceHolder| |
1115 |
1113 |
1116 selectorInRed := sel colorizeAllWith:Color red. |
1114 selectorInRed := sel withColor:Color red. |
1117 missingMethodPlaceHolder := MissingMethod mclass:aClass selector:sel. |
1115 missingMethodPlaceHolder := MissingMethod mclass:aClass selector:sel. |
1118 whatToDo value:aClass value:'required' value:selectorInRed value:missingMethodPlaceHolder. |
1116 whatToDo value:aClass value:'required' value:selectorInRed value:missingMethodPlaceHolder. |
1119 ]. |
1117 ]. |
1120 ]. |
1118 ]. |
1121 allTestSelectors notEmptyOrNil ifTrue:[ |
1119 allTestSelectors notEmptyOrNil ifTrue:[ |
1591 ]. |
1589 ]. |
1592 ]. |
1590 ]. |
1593 |
1591 |
1594 |
1592 |
1595 item := item , ((' (%1)' bindWith:(categoryBag occurrencesOf:cat)) |
1593 item := item , ((' (%1)' bindWith:(categoryBag occurrencesOf:cat)) |
1596 colorizeAllWith:pseudoEntryColor). |
1594 withColor:pseudoEntryColor). |
1597 |
1595 |
1598 needsSpecialColoring ifTrue:[ |
1596 needsSpecialColoring ifTrue:[ |
1599 hasExtensions := itemsWithExtensions includes:cat. |
1597 hasExtensions := itemsWithExtensions includes:cat. |
1600 hasExtensions ifTrue:[ |
1598 hasExtensions ifTrue:[ |
1601 item := item , emphasizedPlus. |
1599 item := item , emphasizedPlus. |
1642 countAll ifTrue:[ |
1640 countAll ifTrue:[ |
1643 allName := self class nameListEntryForALLWithCount bindWith:numAll. |
1641 allName := self class nameListEntryForALLWithCount bindWith:numAll. |
1644 ] ifFalse:[ |
1642 ] ifFalse:[ |
1645 allName := nameListEntryForALL. |
1643 allName := nameListEntryForALL. |
1646 ]. |
1644 ]. |
1647 categoryList addFirst:(allName allItalic colorizeAllWith:pseudoEntryColor). |
1645 categoryList addFirst:(allName allItalic withColor:pseudoEntryColor). |
1648 rawProtocolList addFirst:nameListEntryForALL. |
1646 rawProtocolList addFirst:nameListEntryForALL. |
1649 ]. |
1647 ]. |
1650 ]. |
1648 ]. |
1651 |
1649 |
1652 (showPseudoProtocols and:[suppressPseudoProtocolsNow not]) ifTrue:[ |
1650 (showPseudoProtocols and:[suppressPseudoProtocolsNow not]) ifTrue:[ |
1653 addPseudoEntryWithColor := [:s :n :clr | |
1651 addPseudoEntryWithColor := [:s :n :clr | |
1654 n > 0 ifTrue:[ |
1652 n > 0 ifTrue:[ |
1655 categoryList |
1653 categoryList |
1656 add:((s bindWith:n) allItalic colorizeAllWith:clr). |
1654 add:((s bindWith:n) allItalic withColor:clr). |
1657 rawProtocolList add:s. |
1655 rawProtocolList add:s. |
1658 ]. |
1656 ]. |
1659 ]. |
1657 ]. |
1660 |
1658 |
1661 addPseudoEntry := [:s :n | addPseudoEntryWithColor value:s value:n value:pseudoEntryColor]. |
1659 addPseudoEntry := [:s :n | addPseudoEntryWithColor value:s value:n value:pseudoEntryColor]. |
2183 ! |
2181 ! |
2184 |
2182 |
2185 source |
2183 source |
2186 ^ (SmalltalkCodeGeneratorTool basicNew |
2184 ^ (SmalltalkCodeGeneratorTool basicNew |
2187 codeFor_shouldImplementFor:selector inClass:mclass) |
2185 codeFor_shouldImplementFor:selector inClass:mclass) |
2188 colorizeAllWith:Color red |
2186 withColor:Color red |
2189 |
2187 |
2190 "Modified: / 31-01-2011 / 18:29:17 / cg" |
2188 "Modified: / 31-01-2011 / 18:29:17 / cg" |
2191 ! ! |
2189 ! ! |
2192 |
2190 |
2193 !MethodCategoryList::MissingMethod methodsFor:'printing & storing'! |
2191 !MethodCategoryList::MissingMethod methodsFor:'printing & storing'! |
2194 |
2192 |
2195 printStringForBrowserWithSelector:selector inClass:aClass |
2193 printStringForBrowserWithSelector:selector inClass:aClass |
2196 ^ (selector,' (** missing required **)') colorizeAllWith:Color red |
2194 ^ (selector,' (** missing required **)') withColor:Color red |
2197 ! ! |
2195 ! ! |
2198 |
2196 |
2199 !MethodCategoryList::MissingMethod methodsFor:'queries'! |
2197 !MethodCategoryList::MissingMethod methodsFor:'queries'! |
2200 |
2198 |
2201 containingClass |
2199 containingClass |
2232 |
2230 |
2233 !MethodCategoryList::MethodStubForTestResult methodsFor:'accessing'! |
2231 !MethodCategoryList::MethodStubForTestResult methodsFor:'accessing'! |
2234 |
2232 |
2235 source |
2233 source |
2236 ^ (mclass compiledMethodAt:selector) source |
2234 ^ (mclass compiledMethodAt:selector) source |
2237 colorizeAllWith:Color grey |
2235 withColor:Color grey |
2238 ! ! |
2236 ! ! |
2239 |
2237 |
2240 !MethodCategoryList::MethodStubForTestResult methodsFor:'printing & storing'! |
2238 !MethodCategoryList::MethodStubForTestResult methodsFor:'printing & storing'! |
2241 |
2239 |
2242 printStringForBrowserWithSelector:selector inClass:aClass |
2240 printStringForBrowserWithSelector:selector inClass:aClass |
2243 ^ (selector,' (** from ',self mclass name,' **)') colorizeAllWith:Color gray |
2241 ^ (selector,' (** from ',self mclass name,' **)') withColor:Color gray |
2244 ! ! |
2242 ! ! |
2245 |
2243 |
2246 !MethodCategoryList class methodsFor:'documentation'! |
2244 !MethodCategoryList class methodsFor:'documentation'! |
2247 |
2245 |
2248 version |
2246 version |