RecordGridのカラム名変更について

[Yuhki]

＞再描画は対応できますが、途中でってのは無理なのでしょうか。
途中でってのはなにかのイベントのタイミングってことでしょうか？
であればheader-specを設定し直せば更新されますよ。
特定のカラムのみでよければRecordGridColumn.header-specを設定してもOKです。

＊＊＊ただし注意が必要です＊＊＊
上記ソースで単純にRecordGridのheader-specに対して
make-headerを設定し直しても更新されません。
header-specはローカルオプションとして定義されており、
設定された値（またはオブジェクト）が変更されたときにオプションの
定義時にかかれたソースが実行されることが原因と推測されます。

Code:

--上記ソースの続き
{let rg:RecordGrid =
     {RecordGrid
         header-spec = make-header,
         record-source = people,
         height = 3cm
     }
}
{set japanese? = false}
{let rg2:RecordGrid =
     {RecordGrid
         header-spec = make-header,
         record-source = people,
         height = 3cm
     }
}

{value
    {VBox rg,rg2,
        {CommandButton
            label = "OK",
            {on Action do
                set rg.header-spec =
                    {proc {rgc:RecordGridColumn}:Graphic
                        let s:String = rgc.field.name
                        {if japanese? then
                            {for h in HeaderJ do
                                {if h.name == rgc.field.name then
                                    set s = h.value
                                    {break}
                                }
                            }
                        }
                        {return
                            {TextFlowBox
                                s
                            }
                        }
                    }
            }
        },
        {CommandButton
            label = "NG",
            {on Action do
                set rg.header-spec = make-header
            }
        }
    }
}