Worksheetにセットした値を表示する

[usami]

次のコードで、set-valueボタンを押した時に、右側のTextFieldに値が表示されません。
カーソルを遷移してアクティブにすると値が表示されるのですが、ボタンを押したときに表示するには
どのように処理すればよいのでしょうか？同様に値を表示した状態でclear-dataボタンを押した時
表示は消えず、カーソルを遷移してアクティブになったときに消えるのですが、ボタンを押したときに消すには
どのように処理すればよいのでしょうか？

Code:

{let wst:Worksheet = {Worksheet 5, 5, {widths 10pt, 2in},
                       row = 2, col = 1,
                       {CommandButton
                           label = "set-value",
                           {on Action at cb:CommandButton do
                               {type-switch cb.selection-context
                                case wks:Worksheet do
                                   {wks.model.set-value 2,3,"aa"}
                                   {wks.model.set-value 2,4,"bb"}
                               }
                           }
                       },
                       row = 2, col = 2,
                       {CommandButton
                           label = "clear-data",
                           {on Action at cb:CommandButton do
                               {type-switch cb.selection-context
                                case wks:Worksheet do
                                   {wks.model.clear-data}
                               }
                           }
                       },
                       row = 2, col = 3,
                       {input-cell {TextField},ui-spec = {TextField}},
                       row = 2, col = 4,
                       {input-cell {TextField},ui-spec = {TextField}}
                     }
}
{value
    wst
}