equal
deleted
inserted
replaced
2706 |
2706 |
2707 isForCompatibility |
2707 isForCompatibility |
2708 "returns true, if this method only used for compatibility |
2708 "returns true, if this method only used for compatibility |
2709 and should use only when porting foreign code but not otherwise" |
2709 and should use only when porting foreign code but not otherwise" |
2710 |
2710 |
2711 |res| |
2711 ^ (self package == #'stx:libcompat') or:[self isTaggedAs:#compatibility] |
2712 |
2712 |
2713 ^ self package == #'stx:libcompat' |
2713 "Modified: / 15-02-2017 / 17:16:10 / cg" |
2714 or:[(res := self resources) notNil and:[res includesKey:#compatibility]] |
|
2715 ! |
2714 ! |
2716 |
2715 |
2717 isInvalid |
2716 isInvalid |
2718 "return true, if this method is not executable due to |
2717 "return true, if this method is not executable due to |
2719 a (re)-compilation error. Since invalidation is by patching the |
2718 a (re)-compilation error. Since invalidation is by patching the |
2772 ! |
2771 ! |
2773 |
2772 |
2774 isObsolete |
2773 isObsolete |
2775 "returns true, if this method is obsolete and should not be used any longer" |
2774 "returns true, if this method is obsolete and should not be used any longer" |
2776 |
2775 |
2777 |res| |
2776 ^ self isTaggedAs:#obsolete |
2778 |
2777 |
2779 ^ (res := self resources) notNil and:[res includesKey:#obsolete] |
2778 "Modified: / 15-02-2017 / 17:15:25 / cg" |
2780 ! |
2779 ! |
2781 |
2780 |
2782 isShadowingExtension |
2781 isShadowingExtension |
2783 "return true, if this method is an extension (i.e. package ~= classes' package) |
2782 "return true, if this method is an extension (i.e. package ~= classes' package) |
2784 which shadows an existing method from another package (i.e. a package conflict)" |
2783 which shadows an existing method from another package (i.e. a package conflict)" |
2793 |
2792 |
2794 ^ false |
2793 ^ false |
2795 |
2794 |
2796 "Modified (format): / 07-09-2011 / 09:00:56 / cg" |
2795 "Modified (format): / 07-09-2011 / 09:00:56 / cg" |
2797 "Modified (comment): / 01-02-2017 / 16:58:39 / stefan" |
2796 "Modified (comment): / 01-02-2017 / 16:58:39 / stefan" |
|
2797 ! |
|
2798 |
|
2799 isTaggedAs:tag |
|
2800 "returns true, if this method has a <resource: tag> annotation" |
|
2801 |
|
2802 |res| |
|
2803 |
|
2804 ^ (res := self resources) notNil and:[res includesKey:tag] |
|
2805 |
|
2806 "Created: / 15-02-2017 / 17:15:15 / cg" |
2798 ! |
2807 ! |
2799 |
2808 |
2800 isVersionMethod |
2809 isVersionMethod |
2801 "Return true, if this is a CVS, SVN or other version method. |
2810 "Return true, if this is a CVS, SVN or other version method. |
2802 Stupid: need to know all of them here; better add a pragma or |
2811 Stupid: need to know all of them here; better add a pragma or |