popup-messageのキャンセルボタン

[onyo]

ayappe 様
めちゃめちゃ汚いソースですが、実現だけなら下記できました。
もっといい方法があるかもしれません。

Code:

{popup-message "ほげほげほげ～",cancel? = true,
    {on DialogShow at dl:Dialog do
||--        {dl.become-active}
        {for c:Control in dl.controls do
            {type-switch c
             case cb:CommandButton do
                {if {cb.label.get-text} == "キャンセル" then
                    {after 0s do
                        {cb.request-key-focus}
                    }
                }
            }
        }
    }
}