Как закрыть окно с Spec в Pharo

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