Mathematica 中 LocatorPane 图形上的右键单击菜单

Question

在 Mathematica 中右键单击图形时，您会看到一个上下文菜单（剪切图形、复制图形、将图形另存为...），但对于 LocatorPane 图形，此右键单击菜单被禁用。 如何在 Mathematica 中使用 EventHandler 或 MouseAction 命令调用 LocatorPane 图形的上下文菜单？什么命令创建这个菜单？

LocatorPane[{1, 1}/2, Graphics[{Gray, Disk[]}]]

我发现这段代码可以在mathematica 中打开“另存为”窗口。

FrontEndExecute[FrontEndToken["SelectionSaveSpecial"]]

我希望当我右键单击 LocatorPane 图形时打开“另存为”窗口。

Answer 1

不是完整的答案，但 Cell 的上下文菜单由 Cell 的 ContextMenu 选项控制。您可以为您想要的任何单元格设置样式为 "Graphics" 的 Cell 的默认上下文菜单：

CellPrint[
 Cell[BoxData[SuperscriptBox["x", "2"]], "Output", 
  ContextMenu -> 
   FEPrivate`FrontEndResource["ContextMenus", "Graphics"]]]

Answer 2

你说：

我想通过右键单击 LocatorPane 图形来调用“图形另存为”。

我还没有找到一种方法来做到这一点，但您可能不知道您可以：

1. 通过单击右侧的空白区域并向左拖动来选择 LocatorPane 对象。

2. 使用菜单文件>将所选内容另存为... 以所需格式保存图形。

---

我认为正确的选项似乎不起作用：

SetOptions[EvaluationNotebook[], 
  ComponentwiseContextMenu -> {"GraphicsBox" -> 
     FEPrivate`FrontEndResource["ContextMenus", "GraphicsBox"], 
    "Graphics3DBox" -> 
     FEPrivate`FrontEndResource["ContextMenus", "Graphics3DBox"], 
    "LocatorPaneBox" -> 
     FEPrivate`FrontEndResource["ContextMenus", "GraphicsBox"], 
    "CellGroup" -> 
     FEPrivate`FrontEndResource["ContextMenus", "CellGroup"], 
    "CellBracket" -> 
     FEPrivate`FrontEndResource["ContextMenus", "CellBracket"], 
    "CellRange" -> 
     FEPrivate`FrontEndResource["ContextMenus", "CellRange"], 
    "CellInsertionPoint" -> 
     FEPrivate`FrontEndResource["ContextMenus", "CellInsertionPoint"]}
  ];

具体来说，"LocatorPaneBox" -> 的值已更改为 "GraphicsBox" 但没有明显效果。

另一方面，更改 "GraphicsBox" -> 的值确实有效果。

我怀疑因为 LocatorPane 使用鼠标输入，所以它捕获右键单击尝试，并且从不将其传递给上下文菜单机制。也许禁用鼠标作为 LocatorPane 的输入设备可以纠正此问题，但这似乎并不实际。

---

以下是实施您使用 "SelectionSaveSpecial" 的建议的一种方法：

Dynamic[EventHandler[
  LocatorPane[{1, 1}/2, Graphics[{Gray, Disk[]}]],
  {"MouseClicked", 2} :> 
   FrontEndExecute[
     SelectionMove[EvaluationNotebook[], All, GeneratedCell];
     SelectionMove[EvaluationNotebook[], All, CellContents]; 
     FrontEndToken["SelectionSaveSpecial"]
   ]
]]