smalltalk - pharo smalltalk 窗口关闭

Question

我正在使用 Pharo Smalltalk 4.0 版构建一个简单的 GUI 应用程序。我希望确保当用户单击右上角的“X”按钮时，我创建的“StandardWindow”不会关闭。因此，我将消息“mustNotClose”发送到我的窗口对象，它是父类(super class) SystemWindow 的一个实例变量。但是，当我单击“X”按钮时，窗口仍然关闭。关于我缺少什么的任何想法？任何帮助将不胜感激。

Answer 1

方法 mustNotClose 只是一个访问器，用于检查实例变量 mustNotClose 是否设置为 true:

mustNotClose
    ^ mustNotClose == true

您应该使用实际删除关闭按钮的方法makeUnclosable。然后，您可以使用 makeClosable 添加关闭按钮。