ハイライト表示時のTextFieldを書き換える

[usami]

下記URL
http://developers.curlap.com/faq/48-faq-...36-19.html
を参考に、次のコードにて全角および半角のカンマを入力できないようなTextFieldを作成しましたが、
ハイライト表示の状態でTextFieldの値を書き換えると、文字列が入れ替わらず、追記になってしまいますが、
これを回避する方法はありますか？
操作手順
１．全角で「１２３，４５６」を入力すると、値には「１２３４５６」が入ります
２．次に、１２３４５６の後ろに「７８９」を入力すると、値には「１２３４５６７８９」が入ります
３．次に、「１２３４５６７８９」をハイライト表示させたあと、「９８７，６５４」を入力すると、
期待する動作は「９８７６５４」ですが、実際は「１２３４５６７８９９８７６５４」になってしまいます。

Code:

{curl 8.0 applet}
{curl-file-attributes character-encoding = "shift-jis"}
{applet
    {compiler-directives careful? = true}
}
{import * from CURL.LANGUAGE.REGEXP}{let start:Frame = {Frame color = "blue", font-weight = "bold"}}
{let change:Frame = {Frame font-weight = "bold" }}
{let end:Frame = {Frame color = "blue", font-weight = "bold"}}
{let result:Frame = {Frame color = "red", font-weight = "bold"}}
{let vl:Frame = {Frame font-weight = "bold"}}{let tf:TextField =
    {TextField width = 5cm,
        input-method-focus-behavior = "activate",
        ui-object = {SkinnableTextFieldUI
                        {on e:StartCompositionEvent do
                            {start.clear}
                            {change.clear}
                            {end.clear}
                            {result.clear}
                            {vl.clear}
                            {start.add replace? = true, "イベントが開始しました"}
                        },
                        {on e:CompositionChangeEvent do
                            {change.add replace? = true, e.string}
                        },
                        {on e:EndCompositionEvent do
                            {end.add replace? = true, "イベントが終了しました"}
                        },
                        {on e:CompositionResultEvent do
                            let valuestr:#String = tf.value
                            let str:String = e.string
                            set str =
                                {regexp-subst "，",
                                    str,
                                    "",
                                    replace-all?=true
                                }
                            set tf.value = valuestr & str
                            {result.add replace? = true, tf.value}
                            let ev:ValueChanged = {ValueChanged}
                            {tf.enqueue-event ev}
                            {e.consume}
                        },
                        {on e:KeyPress do
                            {if  e.value == '\u002C' then
                                {e.consume}
                            }
                        }
                    },
        {on e:ValueChanged do
            {vl.add replace? = true, tf.value}
        }
    }}{VBox
    tf,
    {Table columns = 2,
        "イベントの開始", start,
        "入力中の文字列", change,
        "イベントの終了", end,
        "入力結果", result,
        "値", vl
    }
}

[c-s]

わざと　set tf.value = valuestr & str　をしているでしょう。
というと、「今のvalueと追加して」の意味ですね。

代わりに　{tf.replace-selection-with-string str}　的な何かをした方がいいではないでしょうか。

[usami]

どうもありがとうございます。
お見込みの通り、これをやらないと追記できなくて強制的にValueChangedイベントを発行してたのですが、
CompositionResultEventを次のように書き換えたら、全角スペースが
１文字しか入らず、かつハイライト表示になってしまいました。
{TextField input-method-focus-behavior = "activate"}
これだけだとハイライト表示されずに全角スペースが入ってくれるのですが何かよい方法はあるのでしょうか？

Code:

{on e:CompositionResultEvent do
    let str:String = e.string
    set str =
        {regexp-subst "，",
            str,
            "",
            replace-all?=true
        }
   {tf.replace-selection-with-string str}
   {result.add replace? = true, tf.value}
   {e.consume}
}

[c-s]

replace-selection-with-string　してから　select-nothing　をすればハイライトじゃなくなります。

[usami]

期待した動作になりました。
どうもありがとうございました。