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
}

[heavybugtracker]

Worksheetってなんでしょうか？

[usami]

Curl External LibraryのGUIコンポーネントです。
下記ＵＲＬを参照してください。
http://developers.curlap.com/re-referenc...sheet.html

[ashimo]

このサンプルに限ってはとりあえず以下のようにすれば動きました。

・{wks.model.clear-data}をセル毎の初期化処理に変更
・ui-spec = {TextField}をui-spec = TextFieldに変更
・セルを空文字で初期化

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}
                                     {wks.set-value 2,3,""}
                                     {wks.set-value 2,4,""}
                                 }
                             }
                         },
                         row = 2, col = 3,
                         {input-cell {TextField}
                             ||, ui-spec = {TextField}
                             , ui-spec = TextField
                         },
                         row = 2, col = 4,
                         {input-cell {TextField}
                             ||, ui-spec = {TextField}
                             , ui-spec = TextField
                         }
                     }
}
{value
    {wst.set-value 2,3,""}
    {wst.set-value 2,4,""}
    wst
}

[usami]

動作確認できました。
ありがとうございます。