从gtk2hs(Gtk2)迁移到gi-gtk(Gtk3)：EventBox事件捕获咨询

核心概念变化 #

• gi-gtk中，事件信号的回调函数会直接接收对应类型的Event对象（比如buttonPressEvent对应EventButton，scrollEvent对应EventScroll），不需要手动创建或获取Event参数。
• 原gtk2hs的tryEvent无需替代：直接在回调中处理事件即可；若要阻止事件向上传播，返回True（多数事件信号的回调返回值为Bool，True表示事件已被处理，不再传递）。

事件信息获取方法 #

针对不同事件类型，调用对应Event子类的方法即可获取所需信息：

• 点击按钮：eventButtonGetButton :: EventButton -> IO Word32
• 修饰键状态：eventButtonGetState :: EventButton -> IO [ModifierType]
• 点击次数：eventButtonGetClickCount :: EventButton -> IO Word32
• 点击坐标（窗口/全局）：eventButtonGetX/eventButtonGetY（窗口坐标）、eventButtonGetRootX/eventButtonGetRootY（全局坐标）
• 滚动方向：eventScrollGetDirection :: EventScroll -> IO ScrollDirection（针对滚动事件）

Gtk3下EventBox事件捕获完整示例 #

{-# LANGUAGE OverloadedStrings #-}
import qualified GI.Gtk as Gtk
import Data.GI.Base

main :: IO ()
main = do
    -- 初始化Gtk
    Gtk.init Nothing

    -- 创建主窗口
    window <- Gtk.windowNew Gtk.WindowTypeToplevel
    Gtk.windowSetTitle window "EventBox Demo"
    Gtk.windowSetDefaultSize window 400 300
    _ <- Gtk.onWindowDestroy window Gtk.mainQuit

    -- 创建EventBox并添加到窗口
    eventBox <- Gtk.eventBoxNew
    Gtk.containerAdd window eventBox

    -- 给EventBox添加一个子控件（比如标签）
    label <- Gtk.labelNew (Just "点击/滚动这里测试事件")
    Gtk.containerAdd eventBox label

    -- 绑定鼠标点击事件
    _ <- Gtk.onEventBoxButtonPressEvent eventBox $ \eventBtn -> do
        -- 获取点击信息
        btn <- eventButtonGetButton eventBtn
        clickCount <- eventButtonGetClickCount eventBtn
        state <- eventButtonGetState eventBtn
        x <- eventButtonGetX eventBtn
        y <- eventButtonGetY eventBtn

        putStrLn $ "点击事件：按钮=" ++ show btn ++ "，次数=" ++ show clickCount
        putStrLn $ "修饰键=" ++ show state ++ "，坐标(" ++ show x ++ "," ++ show y ++ ")"

        -- 返回True表示阻止事件传播，False则继续传递
        return True

    -- 绑定鼠标滚动事件
    _ <- Gtk.onEventBoxScrollEvent eventBox $ \eventScroll -> do
        dir <- eventScrollGetDirection eventScroll
        putStrLn $ "滚动事件：方向=" ++ show dir
        return True

    -- 显示所有控件
    Gtk.widgetShowAll window

    -- 启动主循环
    Gtk.main

关键说明 #

• 确保导入Data.GI.Base以使用GI绑定的基本操作函数（比如onEventBoxButtonPressEvent这类信号绑定函数）。
• 不同事件类型对应不同的Event子类，比如buttonPressEvent用EventButton，motionNotifyEvent用EventMotion，调用对应子类的方法获取信息即可。
• newZeroEvent和eventGet一般用于底层事件构造/获取，日常事件处理不需要用到它们。

内容的提问来源于stack exchange，提问作者JeanJouX