为什么不执行我的操作的快捷方式？

Question

在Moose 4.6中，这是我的代码：

finder := GLMFinder new.
finder show: [:a | 
    a dynamic display: (GLMTextPresentation new forSmalltalk);
    act: [self halt]
    on: $k 
      entitled: 'Implementors (k)' ].

finder openOn: 'Waaaaaaa'

如果单击小菜单项，则会出现调试器。 但是，如果我按apple-k，则不会。 为什么不呢？

Answer 1

在动态演示中，动作似乎效果不佳。 但是，如果将操作添加到内部表示中（在本例中为GLMTextPresentation），则它可以完美地工作。

finder := GLMFinder new.
finder show: [:a | 
    a dynamic display: 
        (GLMTextPresentation new forSmalltalk;
        act: [self halt]
        on: $k 
        entitled: 'Implementors (k)')
    ].

finder openOn: 'Waaaaaaa'