smalltalk - 为什么我的操作的快捷方式不会被执行？

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'