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

Question

在穆斯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'