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

[c-s]

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}
}
}
}
}
}
}

日本語設定されている端末以外にも使うつもりであれば、ラベルのテストを変えた方がいいです。

Code:

    {if {cb.label.get-text} == {hlmessage Cancel} then