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

Question

我有一个带有多个控件的 Spec 窗口。当我单击“确定”按钮时，我希望关闭窗口。

| 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).

我已尝试发送删除和关闭，但没有成功。如何关闭窗口？

Answer 1

你可以这样做：

| 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).