926 requiredProtocolForClass := CodeGeneratorTool missingRequiredProtocolFor:aClass. |
926 requiredProtocolForClass := CodeGeneratorTool missingRequiredProtocolFor:aClass. |
927 requiredProtocolForClass do:[:sel | |
927 requiredProtocolForClass do:[:sel | |
928 |selectorInRed missingMethodPlaceHolder| |
928 |selectorInRed missingMethodPlaceHolder| |
929 |
929 |
930 selectorInRed := sel colorizeAllWith:Color red. |
930 selectorInRed := sel colorizeAllWith:Color red. |
931 missingMethodPlaceHolder := MissingMethod basicNew. |
931 missingMethodPlaceHolder := MissingMethod mclass:aClass selector:sel. |
932 missingMethodPlaceHolder mclass:aClass; selector:selectorInRed. |
|
933 whatToDo value:aClass value:'required' value:selectorInRed value:missingMethodPlaceHolder. |
932 whatToDo value:aClass value:'required' value:selectorInRed value:missingMethodPlaceHolder. |
934 ]. |
933 ]. |
935 ]. |
934 ]. |
936 anyInThisClass ifTrue:[ remainingClasses remove:aClass ifAbsent:nil. ]. |
935 anyInThisClass ifTrue:[ remainingClasses remove:aClass ifAbsent:nil. ]. |
937 ]. |
936 ]. |
1679 flags := aBoolean |
1678 flags := aBoolean |
1680 ifTrue:[ flags bitOr: FlagSendsSuper ] |
1679 ifTrue:[ flags bitOr: FlagSendsSuper ] |
1681 ifFalse:[ flags bitClear: FlagSendsSuper] |
1680 ifFalse:[ flags bitClear: FlagSendsSuper] |
1682 ! ! |
1681 ! ! |
1683 |
1682 |
|
1683 !MethodCategoryList::MissingMethod class methodsFor:'instance creation'! |
|
1684 |
|
1685 mclass:aClass selector:aSelector |
|
1686 ^ self new mclass:aClass selector:aSelector |
|
1687 ! ! |
|
1688 |
1684 !MethodCategoryList::MissingMethod methodsFor:'accessing'! |
1689 !MethodCategoryList::MissingMethod methodsFor:'accessing'! |
|
1690 |
|
1691 mclass |
|
1692 ^ mclass |
|
1693 ! |
1685 |
1694 |
1686 mclass:aClass |
1695 mclass:aClass |
1687 mclass := aClass |
1696 mclass := aClass |
1688 ! |
1697 ! |
1689 |
1698 |
|
1699 mclass:aClass selector:aSelector |
|
1700 mclass := aClass. |
|
1701 selector := aSelector. |
|
1702 ! |
|
1703 |
1690 selector |
1704 selector |
1691 ^ selector |
1705 ^ selector |
1692 ! |
1706 ! |
1693 |
1707 |
1694 selector:something |
1708 selector:something |
1695 selector := something. |
1709 selector := something. |
1696 ! |
1710 ! |
1697 |
1711 |
1698 source |
1712 source |
1699 ^ (CodeGeneratorTool basicNew |
1713 ^ (CodeGeneratorTool basicNew |
1700 codeFor_shouldImplementFor:selector string asSymbol |
1714 codeFor_shouldImplementFor:selector inClass:mclass) |
1701 inClass:mclass) colorizeAllWith:Color red |
1715 colorizeAllWith:Color red |
1702 ! ! |
1716 ! ! |
1703 |
1717 |
1704 !MethodCategoryList::MissingMethod methodsFor:'printing & storing'! |
1718 !MethodCategoryList::MissingMethod methodsFor:'printing & storing'! |
1705 |
1719 |
1706 printStringForBrowserWithSelector:selector inClass:aClass |
1720 printStringForBrowserWithSelector:selector inClass:aClass |
1707 ^ selector,' (** missing required **)' colorizeAllWith:Color red |
1721 ^ (selector,' (** missing required **)') colorizeAllWith:Color red |
1708 ! ! |
1722 ! ! |
1709 |
1723 |
1710 !MethodCategoryList class methodsFor:'documentation'! |
1724 !MethodCategoryList class methodsFor:'documentation'! |
1711 |
1725 |
1712 version |
1726 version |
1713 ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.44 2009-10-22 12:51:09 cg Exp $' |
1727 ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.45 2009-10-22 13:24:54 cg Exp $' |
1714 ! |
1728 ! |
1715 |
1729 |
1716 version_CVS |
1730 version_CVS |
1717 ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.44 2009-10-22 12:51:09 cg Exp $' |
1731 ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.45 2009-10-22 13:24:54 cg Exp $' |
1718 ! ! |
1732 ! ! |
1719 |
1733 |
1720 MethodCategoryList initialize! |
1734 MethodCategoryList initialize! |
1721 MethodCategoryList::CachedMethodInfo initialize! |
1735 MethodCategoryList::CachedMethodInfo initialize! |