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")]