pharo smalltalk Window 关闭

pharo smalltalk Window closing

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

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

mustNotClose
    ^ mustNotClose == true

您应该使用真正删除关闭按钮的方法makeUnclosable。然后,您可以使用 makeClosable.

添加关闭按钮