値の初回変更後の再変更を許可しない

[umemura]

つまり、こういうことでしょうか。

Code:

{define-class public A
  field _value:String = "100"
  {setter public {value  val:String}:void
    ||値確定前の型は Null
    {if Null == {type-of self.first?} then
        set self._value = val
        set self.first? = {Frame}
    }
  }
  {getter public {value}:String
    {return self._value}
  }
  ||値が設定されると、null は入れられない
  field first?:Frame = {uninitialized-value-for-type Frame}
  {constructor public {default}}
}
{def tf = {TextField value = "333"}}
{value tf}
{def a = {A}}
{value "Aクラスの初期値：" & a.value}
{CommandButton
    label = "Aクラスの値を上記の値に変更して表示",
    {on Action do
        set a.value = tf.value
        {popup-message  a.value }
    }
}

ちょっと面倒ですね。