TextFlowBox内の文字列変更について

[onyo]

実は元々悩んでいたのは、CommandButton の改行を含むテキストラベルを
動的に変えるにあたってどうすればいいのかでした。

CommandButton.label 内では
text-preserve-whitespace? は有効ではないようですが
他に、簡潔な書き方がありますでしょうか？

Code:

{let hoge:String = "こっから→\nここまで"}
{define-proc public {en-n-chikan s:String}:any
    let sa:StringArray = {s.split split-chars = "\n"}
    let arg:Arguments = {Arguments}
    {for i:int = 0  below  sa.size do
        {arg.append sa[i]}
        {if sa.size == i + 1 then
            {break}
        }
        {arg.append {br}}
    }
    {return {text {splice arg}}}
}

|| １．Labelで表示
{Label {TextFlowBox text-preserve-whitespace? = true, hoge}}

|| ２．Labelを CammndButton.label に設定
{CommandButton label = {Label {TextFlowBox text-preserve-whitespace? = true, hoge}}}

|| ３．\nの元Stringをそのまま CammndButton.label に設定
{CommandButton label = hoge}

|| ４．TextFlowBoxを CammndButton.label に設定
{CommandButton label = {TextFlowBox text-preserve-whitespace? = true, hoge}}

|| ５．{br}に置換して CammndButton.label に設定
{CommandButton label = {en-n-chikan hoge}}