无论当前具有焦点的小部件如何,我如何响应键盘事件?例如,以下程序仅在没有关注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")]