RecordGrid でDropdownList を表示

[umemura]

列挙体や、StandardStringDomain の allowable-value を使う方法では、
マスタから区分の一覧を取得して、その一覧をリストに表示する、
といった、動的なリストの生成が難しいと思っています。
（RecordField.domain が後で変更可能であれば良いのですが・・・）

また、DropdownList のリストアイテムに ListValueitem を利用して、
コードとラベルを分けて表示する、ということが出来ません。

create-editor で、生成された DropdownList にアイテムを設定する方法だと、
下記のような感じになるかと思います。

Code:

{define-class public CustomDropdownCell {inherits StandardDropdownCell}
  ||DropdownList のリストアイテム
  field public list-items:{Array-of ListValueItem} = {new {Array-of ListValueItem}}
  {constructor public {default
                          list-items:#{Array-of ListValueItem} =null
                      }
    {if-non-null list-items then
        set self.list-items = list-items
    }
    {construct-super}
  }
  ||ドロップダウンリストに、アイテムを設定
  {method public {create-editor}:DropdownList
    def cell-dl = {super.create-editor}
    {for itm in self.list-items do
        {cell-dl.append itm}
    }
    {return cell-dl}
  }
  ||リストで選択されたアイテムのラベルを文字列として取得
  {method public {format x:any}:String
    let txt:String = ""
    def val = {self.get-data}
    def found-index =
    {self.list-items.find
        {ListValueItem val},
        equality-proc =
            {proc {itm1:ListValueItem, itm2:ListValueItem}:bool
                {if itm1.init-value == itm2.init-value then
                    {return true}
                 else
                    {return false}
                }
            }
    }
    {if found-index > -1 then
        def select-item = {self.list-items.get found-index}
        set  txt = {select-item.get-text}

    }
    {return txt}
  }
}
{define-class public CustomDropdownColumn {inherits RecordGridColumn}
  {constructor public {default
                          list-items:#{Array-of ListValueItem} =null,
                          ...}
    {construct-super {splice ...}}
    set self.cell-spec =
        {proc {col:RecordGridColumn}:RecordGridCell
            def cell = {CustomDropdownCell list-items = list-items}
            {return cell}
        }
  }
}
{let people:RecordSet =
    {RecordSet
        {RecordFields
            {RecordField "First", domain = String},
            {RecordField "Last", domain = String},
            {RecordField "Age", domain = int}
        },
        {RecordData First = "John", Last = "Smith", Age = 25},
        {RecordData First = "Jane", Last = "Smith", Age = 29},
        {RecordData First = "Jane", Last = "Jones", Age = 28}
    }
}
{def grid =
    {RecordGrid
        record-source = people,
        {CustomDropdownColumn
            "First",
            list-items =
                {{Array-of ListValueItem}
                    {ListValueItem "", label = ""},
                    {ListValueItem "John", label = "ジョン"},
                    {ListValueItem "Jane", label = "ジェーン"},
                    {ListValueItem "Joe", label = "ジョー"}
                }
        }

    }
}
{value grid}

グリッド内のドロップダウンリストを表示する方法で、
もっとよい方法があれば教えてください。