GUIKit の例題:CellularGroup
GUIKit の例題:CellularGroup
GUIKitで提供されていた機能は,組込みのWolfram言語にネイティブのインターフェース構造およびコントロール関数で利用できるようになった.
Needs["GUIKit`"]CellularGroupDialog[] := GUIRunModal["Wolfram/Example/CellularGroup"];def = Block[{$Path = $GUIPath},
Get["Wolfram/Example/CellularGroup.m"]]例題
この例題はセルオートマトン用の再利用可能なGUIKit`ウィジェットをいかに作るかのデモンストレーションである.
CellularGroupDialog[]CellularGroupの例題は,定義内で一意的に公開されたウィジェットとして扱うことも他のパネル内の単一の再利用可能なユーザインターフェース要素として扱うことも容易にできる.
次は一意的な名前を持ったキャンバスウィジェットを公開して現行グラフィックスを抽出するモーダルな結果式を作る.
GUIRunModal[
Widget["Panel", {
Widget["Label", {"text" -> "Multiple
Cellular sessions"}],
{Widget["Wolfram/Example/CellularGroup", ExposeWidgetReferences -> {"canvas" -> "canvas1"}],
Widget["Wolfram/Example/CellularGroup", ExposeWidgetReferences -> {"canvas" -> "canvas2"}]},
{Widget["Wolfram/Example/CellularGroup", ExposeWidgetReferences -> {"canvas" -> "canvas3"}],
Widget["Wolfram/Example/CellularGroup", ExposeWidgetReferences -> {"canvas" -> "canvas4"}]},
BindEvent["endModal",
Script[ Show[ GraphicsArray[
Partition[
ToExpression[PropertyValue[{#, "mathCommand"}]]& /@
Select[ "WidgetNames" /. GUIInformation[], StringMatchQ[#, "canvas*"]&],
2]]] ]]
}]
]