RecordGrid でDropdownList を表示

[umemura]

domainにStandardStringDomainなどを使い方法はためしましたか？
デフォルトコンストラクタのパラメータのallowable-valueにリストに出したい値を設定すればドロップダウンリストとして出力されますよ。

StandardStringDomain の使い方を教えていただき、ありがとうございました。

ただ、提示いただいた方法では、グリッド上で指定した値がそのままレコードの値となると認識しています。

列挙型のname と value を、DropdownList のlabel とvalue に対応させるイメージで考えていたので、
下記のように実装してみました。

少しformatメソッドの記述方法が煩雑になっているので、
もっと簡潔な方法があれば教えてください。

Code:

||列挙体を RecordGrid （ReocrdSet）で利用するためのドメインクラス
{define-class public EnumDomain
  {inherits StandardStringDomain}
  
  field enum-type:EnumType
  
  {constructor public {default
                          enum-type:EnumType
                      }
    
    set self.enum-type = enum-type
    
    def ary-string:{Array-of String} = {new {Array-of String}}
    
    ||「指定なし」用のvalueを追加
    {ary-string.append　""}
    
    {with-compiler-directives allow-any-calls? = true do
        
        {for e in self.enum-type do
            
            {ary-string.append (e.name asa String)}
            || {ary-string.append  e.value asa String}
        }
    }
    
    {construct-super
        default-value = "",
        allowable-values = ary-string
        
    }
  }
  
  {method public {format x:any}:String
    
    
    {switch x
        
     case "" do
        {return "指定しない"}
        
     else
       || {return x asa String }
        let return-val:String = ""
        
        def val = {self.enum-type.new-from-name
                      (x asa String)
                  }
        {with-compiler-directives
            allow-implicit-any-casts?  = true,  
            allow-any-calls? = true
         do
            set return-val = val.value
        }
        
        {return return-val }
    }
  }
  
  
}