レコードの挿入で一番上の行が選択されてしまう

[umemura]

レコードの挿入をするために、インデックスをつけて、選択されている行に追加したレコードが表示されるようにソートしています。

しかし、なぜか、レコードの一番上の行が選択されてしまいます。
batch-events? を利用しないと、現在の選択はそのままとなるのですが、
それだと、レコードの追加に時間がかかってしまいます。

現在のレコードの選択状態を変えないままレコードを挿入するには
どうすればよいでしょうか。

Code:

{let rs:RecordSet =
    {RecordSet
        {RecordFields
            {RecordField "index", domain = int},
            {RecordField "First", domain = String},
            {RecordField "Last", domain = String},
            {RecordField "Age", domain = int}
        }
    }
}
{for i:int = 0 to 100 do
    def rd = {RecordData}
    set rd["index"] = i + 1
    {rs.append rd}
}
{def grid =
    {RecordGrid
        sort = "index",
        record-source = rs
    }
}
{value grid}
{CommandButton
    {on Action do
        let insert-index:int = rs.size
        {if grid.current-index > -1 then
            set insert-index = grid.current-index + 1
        }

        def new-r = {RecordData}|| {rs.new-record}
        set new-r["index"] = insert-index

        ||batch-events? を使うと一番上のレコードが選択されてしまう
        {with rs.batch-events? = true do
            ||挿入のために、対象インデックス以降を＋１
            {for r in rs do
                {if r["index"] asa int >= insert-index then
                    set r["index"] = r["index"] asa int + 1
                }
            }
        }
        {rs.append new-r}
        
        ||下記コードで、元の選択状態に戻せるが
        ||画面がちらついたり、スクロール位置が変わるのが問題
||++    {after 0s do
||++        {grid.select-record insert-index}
||++        set grid.current-index = insert-index
||++    }
    }
}