拡張クラスのローカルオプションについて

[umemura]

ん？
オーバーライドできないって・・・。

あれ？
できるな。

いや、これでいいんです。これで。

あれぇ・・・？

Code:

{define-class public MyTextField {inherits TextField}
  {constructor public {default ...}
    {construct-super {splice ...}}
  }
  {nonlocal-option public enabled?:bool
    {if not enabled? then
        set self.value = "無効"
     else
        set  self.value = ""
    }
  }
  {local-option public editable?:bool
    {if not editable? then
        set self.value = "編集不可"
     else
        set  self.value = ""
    }
  }
}
{def tf = {MyTextField}}
{CheckButton
    label = "enabled?",
    value = true,
    {on ValueChanged at chkb:CheckButton do
        set tf.enabled? = chkb.value
    }
}
{CheckButton
    label = "editable?",
    value = true,
    {on ValueChanged at chkb:CheckButton do
        set tf.editable? = chkb.value
    }
}
{value tf}