ハイライト表示時の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

    }

}