smalltalk - 如何检查父类(super class)之一是否包含具有特定名称的类变量？

Question

我想编写一个方法来检查所有父类(super class)的列表( allSuperclass 方法)，如果其中一个父类(super class)具有具有特定名称的 classVariable ，则返回“true”。如果他们都没有它，它将返回 false。 我该怎么做？

Answer 1

classVarNames 是一个返回类变量名称集合的方法。

例如，如果您将此方法添加到Behavior类中，您应该获得您所要求的功能:

 superclassesHaveNoClassVar: name
    ^ self allSuperclasses noneSatisfy: [:class |
        class classVarNames includes: name]

没什么特别的。只需获取allSuperclasses并检查它们的classVarNames中是否包含所需的变量name。