オプションの監視について

[umemura]

とりあえず、option-changed を使って、こんな感じでできました。

Code:

{define-class public CustomCB {inherits CommandButton}
  {method public {option-changed key:String, value:any}:void
    {super.option-changed key, value }
    || enabled? と visible? を連動させる
    {if key == "enabled?" then
        set self.visible? = value asa bool
    }
  }
}

{let ccb:CustomCB = {CustomCB}}
{value ccb}
オプション enabled? の値に応じて visible? も設定される
{CheckButton
    label = "enabled? 切り替え",
    value = true,
    {on ValueChanged at chkb:CheckButton do
        set ccb.enabled? = chkb.value
    }
}