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