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

时间:2011-11-17 09:13:05

标签: smalltalk pharo moose-technology

在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,它就不会。为什么不呢?

1 个答案:

答案 0 :(得分: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'