如何处理 Spec 2 工具栏中的事件/检测按住 SHIFT 键？

问题描述

我有一个工具栏 (SpToolbarPresenter) 作为实例 var toolbar，我有一个 #updatePresenter 实现：

updatePresenter

    cmds isEmpty ifTrue: [ ^ self ].

    btnHandlers := cmds collect: [ :cmd | 
                          | btn |
                          btn := SpToolbarButtonPresenter new
                                     label: cmd name;
                                     action: [];
                                     help: cmd help.
                          toolbar addItem: btn.
                          (SpEventHandler for: btn) whenMouseDownDo: [ :ev | 
                              self onCmd: cmd name event: ev ] ]

我使用 SpEventHandler 而不是 #action: 因为我想在单击工具栏按钮时检测按住 SHIFT 键。但是，我仍然需要 #action:，因为没有它我会收到一个奇怪的错误，比如“#cull: was sent to nil”。

此代码适用于第二个工具栏的按钮（我在工具栏上有两个），但不适用于第一个！第一个工具栏的按钮永远不会获得该事件，因此永远不会调用 onCmd。

那么，如何 1) 在单击工具栏按钮时检测按住 SHIFT 或 2) 修复此代码，以便所有按钮都会收到此事件？任何帮助都会有所帮助。

附注。 Windows 10，规范 2，Pharo-9.0.0+build.940.sha.deeec198ef752789431ee24667709a4a3ff87bda (64 Bit)

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

pharo smalltalk