"PopupMenu"
GUIKit`
GUIKit`
"PopupMenu"
GUIKitで提供されていた機能は，組込みのWolfram言語にネイティブのインターフェース構造およびコントロール関数で利用できるようになった．
Widget["PopupMenu"]
ポップアップメニューを表す．
例題
例 (1)
Needs["GUIKit`"]ref = GUIRun[
Widget["Frame", {
Widget["TextArea", {"columns" -> 30, "rows" -> 5}, Name -> "messageArea"],
Widget["PopupMenu", {
Widget["MenuItem", {"text" -> "Item 1"}],
Widget["MenuItem", {"text" -> "Item 2"}],
Widget["MenuSeparator"],
Widget["MenuItem", {"text" -> "Item 3"}]
}, Name -> "popupMenu"],
BindEvent[{"messageArea", "mousePressed"},
Script[
If[TrueQ[PropertyValue[{"#", "popupTrigger"}]],
InvokeMethod[{"popupMenu", "show"}, PropertyValue[{"#", "component"}], PropertyValue[{"#", "x"}], PropertyValue[{"#", "y"}]]];
]],
BindEvent[{"messageArea", "mouseReleased"},
Script[
If[TrueQ[PropertyValue[{"#", "popupTrigger"}]], InvokeMethod[{"popupMenu", "show"}, PropertyValue[{"#", "component"}], PropertyValue[{"#", "x"}], PropertyValue[{"#", "y"}]]];
]]
}]
];GUIScreenShot[ref]