爲什麼我的動作不能執行快捷方式？

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'