如何在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).