如何在X11代码中监听窗口关闭？

Question

我仍在为 Haskell 的 X11 绑定而苦苦挣扎。现在，我想检测用户关闭窗口的事件。迄今为止我最好的尝试：

import Graphics.X11.Xlib
import Graphics.X11.Xlib.Extras
import Control.Concurrent (threadDelay)
import Data.Bits    

main :: IO ()
main = do
 dpy <- openDisplay ""
 let dflt = defaultScreen dpy
     border = blackPixel dpy dflt
     background = whitePixel dpy dflt
 rootw <- rootWindow dpy dflt
 win <- createSimpleWindow dpy rootw 0 0 300 200 1 border background
 setTextProperty dpy win "Hello World" wM_NAME
 mapWindow dpy win
 moveWindow dpy win 0 0
 selectInput dpy win (structureNotifyMask .|. exposureMask)
 updateWin dpy win

updateWin :: Display -> Window -> IO ()
updateWin dpy win = do
  sync dpy True
  allocaXEvent $ \e -> do
    nextEvent dpy e
    ev <- getEvent e
    putStrLn $ eventName ev
  threadDelay (1000000)
  updateWin dpy win

但是我没有得到事件，而是得到以下输出：

ConfigureNotify
XIO:  fatal IO error 11 (Resource temporarily unavailable) on X server ":0.0"
      after 26 requests (25 known processed) with 5 events remaining.

这是什么原因造成的？正确的处理方法是什么？

Answer 1

您需要观看ClientMessage事件。没有遮罩，也无需选择它们，只需检测它们并摧毁窗口即可。您还需要设置 WM_DELETE_WINDOW 协议。参见例如这里。查找 ClientMessage 和 WM_DELETE_WINDOW。

在某些时候，您可能希望拦截除 WM_DELETE_WINDOW 之外的其他客户端消息。您需要检查 ClientMessage 内容，而不仅仅是类型，但目前不需要。