GUIKit Example: RealTimeAlgebra
GUIKit Example: RealTimeAlgebra
The functionality provided by GUIKit has been superseded by the interface construction and controls functions native to the built-in Wolfram Language.
Needs["GUIKit`"]expr = Widget["Panel", {
Widget["ScrollPane", {
"viewportView" -> Widget["TextArea", {
"text" -> "", "rows" -> 10, "columns" -> 40,
"editable" -> False}, Name -> "textArea"]}], Widget["Slider", {"value" -> 5,
BindEvent["change",
Script[sliderChanged[]]]
}, Name -> "slider"],
Script[
sliderChanged[] := Block[{val, x, y}, val = ToExpression[PropertyValue[{"slider", "value"}]];SetPropertyValue[{"textArea", "text"}, ToString[Expand[(x + y)^val], InputForm, PageWidth -> ToExpression[PropertyValue[{"textArea", "columns"}]]
]]
];
sliderChanged[]]
}];RealTimeAlgebraModal[] := GUIRunModal[expr];RealTimeAlgebraModeless[] := GUIRun[expr];Example
Here is an implementation of the RealTimeAlgebra J/Link example.
RealTimeAlgebraModal[]You can also interact with the dialog in a modeless session.
RealTimeAlgebraModeless[];