GUIKit の例題：簡単なスライダー
GUIKit の例題：簡単なスライダー
GUIKitで提供されていた機能は，組込みのWolfram言語にネイティブのインターフェース構造およびコントロール関数で利用できるようになった．
Needs["GUIKit`"]SimpleSlider[] := GUIRunModal[
Widget["Panel",
WidgetGroup[{
Widget["TextField", {
"text" -> "",
"columns" -> 3, "editable" -> False}, Name -> "textField"],
Widget["Slider", {
BindEvent["change", Script[
SetPropertyValue[{"textField", "text"},
ToString[PropertyValue[{"slider", "value"}], InputForm]]
] ]}, Name -> "slider"]
}, WidgetLayout -> Row]]
]例題
この例題はスライダーウィジェットとの簡単なインタラクションを示している．
SimpleSlider[]