smalltalk - 如何在 Nautilus 中向上下文菜单添加条目？

Question

我有一个适用于 Pharo 包 (RPackages) 的工具。

为了使其易于访问，我想在 Nautilus 包上下文菜单中添加一个菜单项，这样人们就可以在 Nautilus 中的选定包上打开我的工具。这可能吗？

Answer 1

要向 Nautilus 上下文菜单添加条目，您可以使用 AbstractNautilusUI menu pragmas 协议(protocol)中定义的菜单编译指示之一。

只需在您想要的任何类上使用其中一个编译指示定义一个类端方法即可。例如:

MyClass class >> myMenuEntry: aBuilder
   <nautilusGlobalPackageMenu>
   | target packages |

   target := aBuilder model.

   (packages := target selectedPackages) ifNil: [ ^ target ].

   (aBuilder item: #'Show my selection')
        action: [ self inform: packages ]

对于 Nautilus 软件包菜单，您可以通过以下方式进行选择

aBuilder model selectedPackages

使用 Finder 的 pragma 搜索选项查看示例。

(感谢本杰明·范·瑞塞格姆)