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

[umemura]

なるほど、ボタン側でそのコマンドを「呼ぶかどうか」ではなく、そのコマンドが「有効かどうか」で切り替えるということでしょうか。

{self.request-update-commands} を忘れないように気をつけないとですね。

Code:

||| Ex1LoginScreen の "login" スクリーンコマンドの定義
{define-screen-command
    login of screen:Ex1LoginScreen {enabled? screen.login-enabled?}
do

Code:

||ユーザー名の入力にあわせて、ログインボタンの活性を切り替える
    {self.userid-tf.add-event-handler
        {on ValueChanged at tf:TextField do
            {if tf.value.size > 0 then
                set self.login-enabled? = true
             else
                set self.login-enabled? = false
            }
            {self.request-update-commands}
        }
    }