wxhaskell - 响应全球关键事件

Question

无论当前哪个小部件具有焦点，我如何响应键盘事件？例如，以下程序仅在 textCtrl 没有被关注时响应带有“按下键”消息的键盘事件，这不是我想要的。

import Graphics.UI.WX

main = start $ do
    window <- frame []
    c1 <- textCtrl window []
    c2 <- panel window []

    set window [layout := minsize (sz 100 100) $ column 10 [widget c1, widget c2]]

    set c2 [on keyboard := (\_ -> print "Key pressed")]