User interface 如何在Pharo中使用Spec关闭窗口

我有一个带有几个控件的等级库窗口。当我点击Ok按钮时，我希望窗口关闭

| m |
m := DynamicComposableModel new.
m instantiateModels: #(text TextModel ok OkToolbar).
m ok okAction: [ self close ].
m openWithSpecLayout: (SpecLayout composed
    newColumn: [ : c | c add: #text ; add: #ok height: 30 ];
    yourself).

我已尝试发送删除和关闭，但均无效。如何关闭窗口？

您可以执行以下操作：

| m |
m := DynamicComposableModel new.
m instantiateModels: #(text TextModel ok OkToolbar).
m ok okAction: [ m window close ].
m openWithSpecLayout: (SpecLayout composed
    newColumn: [ : c | c add: #text ; add: #ok height: 30 ];
    yourself).