09-13-2012, 05:03 PM
次のコードで、set-valueボタンを押した時に、右側のTextFieldに値が表示されません。
カーソルを遷移してアクティブにすると値が表示されるのですが、ボタンを押したときに表示するには
どのように処理すればよいのでしょうか?同様に値を表示した状態でclear-dataボタンを押した時
表示は消えず、カーソルを遷移してアクティブになったときに消えるのですが、ボタンを押したときに消すには
どのように処理すればよいのでしょうか?
カーソルを遷移してアクティブにすると値が表示されるのですが、ボタンを押したときに表示するには
どのように処理すればよいのでしょうか?同様に値を表示した状態で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
}