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

[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}
}