Haskell中如何启用GDK_POINTER_MOTION_MASK掩码？

要解决这个问题，核心是通过widgetAddEvents函数为目标部件添加对应的事件掩码，让关联窗口能够捕获指针移动事件并传递给部件。以下是具体操作步骤和代码示例：

关键概念说明 #

要接收此信号，与部件关联的Window需要启用GDK_POINTER_MOTION_MASK掩码。

GDK的事件掩码是用来告诉窗口系统哪些事件需要传递给GTK部件的开关。GDK_POINTER_MOTION_MASK对应Haskell GI库中的EventMaskPointerMotionMask，启用它后，部件才能收到motion-notify-event信号。

具体实现步骤 #

1. 导入必要的模块：需要GI.Gtk和GI.Gdk中的事件掩码定义。
2. 在部件初始化后，调用widgetAddEvents添加EventMaskPointerMotionMask掩码。
3. 绑定onWidgetMotionNotifyEvent回调函数处理指针移动事件。

代码示例 #

import GI.Gtk as Gtk
import GI.Gdk (EventMask(..), eventGetCoordinates)

main :: IO ()
main = do
  Gtk.init Nothing

  -- 创建窗口和目标图片部件
  window <- Gtk.windowNew Gtk.WindowTypeToplevel
  image <- Gtk.imageNewFromFile "your-image.png"

  -- 为图片部件启用指针移动事件掩码
  Gtk.widgetAddEvents image [EventMaskPointerMotionMask]

  -- 绑定motion-notify-event回调，处理拖拽逻辑
  _ <- Gtk.onWidgetMotionNotifyEvent image $ \event -> do
    -- 获取当前指针坐标
    (x, y) <- eventGetCoordinates event
    putStrLn $ "指针位置：" ++ show x ++ ", " ++ show y
    -- 返回True表示事件已处理，False则允许事件继续传递
    return True

  -- 组装界面并启动主循环
  Gtk.containerAdd window image
  Gtk.widgetShowAll window
  _ <- Gtk.onWindowDestroy window Gtk.mainQuit
  Gtk.main

额外提示 #

如果要实现完整的拖拽功能（比如按住鼠标拖动图片），还需要同时启用以下掩码：

• EventMaskButtonPressMask：捕获鼠标按下事件，标记拖拽开始
• EventMaskButtonReleaseMask：捕获鼠标释放事件，标记拖拽结束

可以在widgetAddEvents中一次性添加多个掩码：

Gtk.widgetAddEvents image 
  [ EventMaskPointerMotionMask
  , EventMaskButtonPressMask
  , EventMaskButtonReleaseMask
  ]

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