修正したレコードだけを抽出したい

[umemura]

独自のレコードセットを作成すればなんとかなりそう、なのかな？

正直、あまり RecordSet には手を入れたくないところです。
独自クラスを使わなくて済む方法、または、
今回のように独自のRecordSet を作成して利用する際の注意点などをご存知のかたは教えてください。

Code:

{define-class public CustomRecord {inherits BasicRecord}
  {constructor public {default ...}
    {construct-super {splice ...}}
  }

  {method public {set name:String, val:any}:void
    let pre-state:RecordState = self.state
    {super.set name, val}

    ||特定のフィールド以外への値変更時に、
    ||修正フラグをセットする
    {switch name
    case "select", "updated?"  do
    else
        {super.set "updated?", true}
    }
  }
}


{define-class public CustomRecordSet {inherits LocalRecordSet}

  {constructor public {default ...}
    {construct-super {splice ...}}
  }

  {method public {new-record}:BasicRecord
    def new-r = {CustomRecord  self}
    {return new-r}
  }

  {method public {commit}:void
    ||コミット時に修正フラグをリセット
    {with self.batch-events? = true do
        {for r in self do
            set r["updated?"] = false
        }
    }
    {super.commit}
  }

}