同名RecordGridを何度も生成したときの挙動

[dyoshida]

CurlドキュメントのRecordGridのcolumns (アクセサ)の説明をみると
「列グループを維持するには、代わりに RecordGrid.base-columns を使用します。」とあるので

・セット先をRecordGrid.columns →RecordGrid.base-columnsに変更、
・base-columns (アクセサ)の型が{Array-of BaseRecordGridColumn}なので、格納変数rgcの型も変更

とすれば、RecordGridColumnGroupもBaseRecordGridColumnを継承しているので指定できるように
なるかと思います。

こんな感じになるのでは

Code:

{curl 8.0 applet}

{def rg = {RecordGrid}}

{define-proc {set-columns-and-fields
                 rg:RecordGrid,
                 first-time?:bool = false
             }:void
    let fields:{Array-of RecordField} = {new {Array-of RecordField}}
    let rgc:{Array-of BaseRecordGridColumn} = {new {Array-of BaseRecordGridColumn}}
        
    {if first-time? then
        {rgc.append {RecordGridColumn "row-header"}}
        {rgc.append
            {RecordGridColumnGroup
                "group1",
                {RecordGridColumn "detail-amount-1"},
                {RecordGridColumn "detail-amount-2"},
                {RecordGridColumn "detail-amount-3"}
            }
        }
        
        {fields.append {RecordField "row-header", caption = "", domain = String}}
        {fields.append {RecordField "detail-amount-1",caption= "初回１"}}
        {fields.append {RecordField "detail-amount-2",caption= "初回２"}}
        {fields.append {RecordField "detail-amount-3",caption= "初回３"}}
     else
        {rgc.append {RecordGridColumn "row-header"}}
        {rgc.append
            {RecordGridColumnGroup
                "group1",
                {RecordGridColumn "detail-amount-1"},
                {RecordGridColumn "detail-amount-2"}
            }
        }
        {rgc.append
            {RecordGridColumnGroup
                "group2",
                {RecordGridColumn "detail-amount-3"},
                {RecordGridColumn "detail-amount-4"}
            }
        }
        
        {fields.append {RecordField "row-header", caption = "", domain = String}}
        {fields.append {RecordField "detail-amount-1",caption= "２回目１"}}
        {fields.append {RecordField "detail-amount-2",caption= "２回目２"}}
        {fields.append {RecordField "detail-amount-3",caption= "２回目３"}}
        {fields.append {RecordField "detail-amount-4",caption= "２回目４"}}
    }
    
    set rg.base-columns = rgc
    set rg.record-source = {RecordSet {RecordFields {splice fields}}}
}

{value
    {VBox
        rg,
        {CommandButton
            label = "1回目",
            {on Action do
                {set-columns-and-fields
                    rg,
                    first-time? = true
                }
            }
        },
        {CommandButton
            label = "2回目",
            {on Action do
                {set-columns-and-fields
                    rg,
                    first-time? = false
                }
            }
        }
    }
}