如何在DrawingArea组件中用Cairo绘图？gi-gtk上下文获取遇阻求助

我之前在做gi-gtk结合Cairo的绘图项目时，也踩过类似的上下文获取坑，咱们来一步步拆解问题解决它：

核心问题：只有draw信号能直接拿到可用的Cairo上下文 #

在gi-gtk的设计里，只有draw信号的处理函数会自动传入已经绑定好窗口绘图区域的Cairo上下文。如果你的第二个事件不是draw信号（比如按钮点击、鼠标移动），或者在draw信号里错误地手动创建上下文，都会导致获取失败。

情况1：第二个事件是draw信号，但上下文获取方式错误 #

如果你的第二个事件也是draw相关的分支，先检查代码里是否正确接收了信号传入的上下文参数。正确的draw信号处理模板应该是这样的：

on yourWidget #draw $ \cr -> do
  -- cr就是现成可用的Cairo上下文
  cairoSetSourceRGB cr 0 0 1  -- 设置蓝色
  cairoRectangle cr 20 20 80 80
  cairoFill cr
  return False  -- 返回False让GTK继续默认绘制流程

如果你在这个处理函数里没有用传入的cr，反而尝试手动创建上下文绑定窗口，就会出现获取失败的问题。

情况2：第二个事件是其他类型（比如按钮点击），需要触发绘图 #

这种场景下不能直接在事件处理里获取上下文，正确的做法是通过「状态管理+触发重绘」来实现：

1. 用一个可变变量（比如IORef）维护绘图状态（比如是否要绘制新图形、图形的位置/颜色）
2. 在事件处理函数里更新这个状态，然后调用widgetQueueDraw yourWidget触发draw信号
3. 在统一的draw处理函数里，根据状态变量完成绘图

举个可运行的简化示例：

import GI.Gtk hiding (main)
import GI.Cairo
import Data.IORef

main :: IO ()
main = do
  _ <- init Nothing
  window <- new Window [ #title := "Cairo Demo" ]
  set window [ #defaultWidth := 400, #defaultHeight := 400 ]

  -- 用IORef记录是否要绘制绿色圆形
  drawGreenCircle <- newIORef False

  -- 按钮点击事件：更新状态并触发重绘
  drawBtn <- new Button [ #label := "Draw Green Circle" ]
  on drawBtn #clicked $ do
    writeIORef drawGreenCircle True
    widgetQueueDraw window

  -- 统一的draw信号处理：所有绘图逻辑都在这里
  on window #draw $ \cr -> do
    -- 先清空画布为白色
    cairoSetSourceRGB cr 1 1 1
    cairoPaint cr

    shouldDraw <- readIORef drawGreenCircle
    when shouldDraw $ do
      cairoSetSourceRGB cr 0 1 0  -- 绿色
      cairoArc cr 200 200 80 0 (2 * pi)
      cairoFill cr

    return False

  containerAdd window drawBtn
  on window #destroy mainQuit
  widgetShowAll window
  main

额外注意事项 #

• 避免在非draw事件里调用widgetGetDrawWindow手动创建上下文：现代GTK的绘图机制已经不推荐这种方式，很容易因为窗口未初始化、绘图区域无效导致上下文获取失败。
• 确保你的draw信号处理函数返回False：这样GTK会继续执行默认的绘制流程，避免出现窗口内容异常的情况。

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