环2:如何在RGEnvironment中迭代类

Question

我在Pharo中使用Ring2，在那里我有一个带有一些类的tonel repo。我创建了一个RGEnvironment，可以看到它有很多"；未解决的"；表示丢失的超类的行为(不在tonel repo中，如Object(。如果我向环境询问allClasses，我也得到了未解析的类，我如何只得到repo中定义的类？

Answer 1

您想要过滤具有解析名称的类：

env := RGEnvironment new.
RGClass named: #MyClass parent: env.
env ask allClasses select: [ :each | each hasResolved: #name ]