Smalltalk 限制上下文菜单

Smalltalk 限制上下文菜单,smalltalk,dolphin-smalltalk,Smalltalk,Dolphin Smalltalk,在Dolphin Smalltalk中,我在树视图上设置了一个上下文菜单,但是每当我右键单击树上的每个地方时,即使我单击了一个空白区域,这个菜单也会出现。 如何将弹出窗口限制为只显示树的现有行? 顺致敬意, 毛里齐奥。我终于找到了 有兴趣的人士: 在CreateSchematicWiring方法中: treePresenter when: #rightButtonPressed: send: #onRightButtonPressed: to: self 这是“onRi

在Dolphin Smalltalk中,我在树视图上设置了一个上下文菜单,但是每当我右键单击树上的每个地方时,即使我单击了一个空白区域,这个菜单也会出现。 如何将弹出窗口限制为只显示树的现有行? 顺致敬意, 毛里齐奥。

我终于找到了

有兴趣的人士:

在CreateSchematicWiring方法中:

treePresenter
    when: #rightButtonPressed:
    send: #onRightButtonPressed:
    to: self
这是“onRightButtonPressed”方法:


其中,getMenu方法根据我单击的对象的类型返回菜单。

能否共享更多详细信息或屏幕截图?
onRightButtonPressed: aMouseEvent
    | treeView item |
    treeView := treePresenter view.
    item := treeView itemFromPoint: aMouseEvent position.
    item
        ifNil: [treeView contextMenu: nil]
        ifNotNil: [:elem | treeView contextMenu: (treeView objectFromHandle: elem) getMenu]