GUIKit の例題：増分の制御
GUIKit の例題：増分の制御
GUIKitで提供されていた機能は，組込みのWolfram言語にネイティブのインターフェース構造およびコントロール関数で利用できるようになった．
Needs["GUIKit`"]expr = Widget["Panel", {
WidgetGroup[{
Widget["TextField", {
"text" -> "0",
"columns" -> 6,
"horizontalAlignment" -> PropertyValue["Right"], BindEvent["action", Script[
value = ToExpression[PropertyValue[{"textField", "text"}]]
]
]}, Name -> "textField"],
Widget["Button", {
"label" -> "更新",
BindEvent["action",
Script[
buttonClicked[]
]
]}],
Widget["CheckBox", {}, Name -> "checkBox"]
}, WidgetLayout -> Row],
Script[
value = 0;
buttonClicked[] := (If[PropertyValue[{"checkBox", "selected"}], value++, value--];
SetPropertyValue[{"textField", "text"}, ToString[value, InputForm]])
]
}];IncrementControlsDialog[] := GUIRunModal[expr];例題
この例題は，ユーザインターフェースのコントロールとWolfram言語スクリプト間の簡単なインターアクションを示している．
IncrementControlsDialog[]