フォーカスアウトした場合に必ずValueFinished イベントを発生させたい

【ご質問】
TextFieldのValueFinished イベントについて、
TextFieldのAPIで以下の記載があります。
「イベントは、value が最後の ValueFinished から変化した場合に必ず発生しますが、
value が変化しなかった場合でも発生することがあります。」

値が変更されていない場合においても
フォーカスアウトした場合に必ずValueFinished イベントを発生させることはできますでしょうか。

【回答】
FocusOutイベント実行時にset-value-with-eventsメソッドを
使用することで実現可能です。

{curl 6.0,7.0,8.0 applet}

{let tf1:TextField = {TextField
                         width = 3cm,
                         value = “Test12345”,
                         {on ValueFinished at tf:TextField do
                             {output “ValueFinished : “& tf.value}
                         },
                         {on e:FocusOut at tf:TextField do
                             {let str:String = tf.value}
                             {tf.set-value-with-events str}
                         }
                    }
}

{let tf2:TextField = {TextField
width = 3cm
}
}

{VBox
tf1,
tf2
}