非活性ボタンにbind-screen-command を指定すると・・・？

[fukuta]

Sonntag のスクリーンコマンドは Curl の Command / CommandContext アーキテクチャにもとづいています。
コマンドアーキテクチャでは enabled? はボタンのプロパティで直接指定することはせず、
bound-command に設定された CommandImpl の enabled? の値にもとづいて制御されます。
（スクリーンコマンドの実体は CommandImpl で、bind-screen-command によって内部的にボタンの bound-command にセットされます）

スクリーンコマンドでこの enabled? の値を指定する場合は define-screen-command の enabled? 句を指定してください。

Code:

{define-screen-command xxx of XXXScreen
    {enabled?
        || ここに true / false の判定をかく
        || この句内の最後の式が bool 値に評価されて enabled? の値として使用される
    }
do
    || ...
}

bind-screen-command でスクリーンコマンドを設定する際に、enabled? 句が評価されてボタンの enabled? の
初期値が決まります。
また、enabled? の値が変化する可能性のあるタイミングでは、スクリーン(Screen-ofなどを継承してつくるオブジェクト)
の request-update-commands というメソッドを呼び出すようにする必要もあります。
request-update-commands によって、再度 enabled? 句が評価されてボタンの状態が更新されます。
ボタンの enabled? プロパティを直接変更してはいけない点に注意してください。