Почему ярлык моего действия не будет выполнен?

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'