為什么不執行我的操作的快捷方式？

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'