GUIKit の例題:PlotGroup
GUIKit の例題:PlotGroup
GUIKitで提供されていた機能は,組込みのWolfram言語にネイティブのインターフェース構造およびコントロール関数で利用できるようになった.
Needs["GUIKit`"]PlotGroupDialog[] := GUIRunModal["Wolfram/Example/PlotGroup"];def = Block[{$Path = $GUIPath},
Get["Wolfram/Example/PlotGroup.m"]]例題
この例題はPlotおよびそのオプションのいくつかを包み込む再利用可能なGUIKit`ウィジェットの作り方を示している.
PlotGroupDialog[]PlotGroupの例題は他のパネルの中で再利用可能なユーザインターフェースとして簡単に使うことができ,複数のインスタンスを扱うことさえ可能である.
GUIRunModal[
Widget["Panel", {
Widget["Label", {"text" -> "Multiple Plot
sessions"}],
{Widget["Wolfram/Example/PlotGroup", ExposeWidgetReferences -> {"canvas" -> "canvas1"}],
Widget["Wolfram/Example/PlotGroup", ExposeWidgetReferences -> {"canvas" -> "canvas2"}]},
BindEvent["endModal",
Script[ Show[ GraphicsGrid[
Partition[
ToExpression[PropertyValue[{#, "mathCommand"}]]& /@
Select[ "WidgetNames" /. GUIInformation[], StringMatchQ[#, "canvas*"]&],
2]]] ]]
}]
]