(Haskell)按钮回调中的gi-gtk设置图像

import Graphics.UI.Gtk
import Graphics.UI.Gtk.Gdk.Pixbuf

button <- buttonNew
image <- imageNew

-- 从文件加载图像
pixbuf <- pixbufNewFromFile "path/to/image.png"
-- 设置图像视图的图像
imageSetFromPixbuf image (Just pixbuf)

containerAdd button image

on button buttonActivated $ do
  -- 在按钮被点击时执行的操作
  putStrLn "Button clicked!"

import Graphics.UI.Gtk
import Graphics.UI.Gtk.Gdk.Pixbuf

main :: IO ()
main = do
  -- 初始化GTK
  void initGUI

  -- 创建一个窗口
  window <- windowNew
  set window [windowTitle := "Button with Image", windowDefaultWidth := 200, windowDefaultHeight := 200]

  -- 创建一个按钮和一个图像视图
  button <- buttonNew
  image <- imageNew

  -- 从文件加载图像
  pixbuf <- pixbufNewFromFile "path/to/image.png"

  -- 设置图像视图的图像
  imageSetFromPixbuf image (Just pixbuf)

  -- 将图像视图添加到按钮中
  containerAdd button image

  -- 将按钮添加到窗口中
  containerAdd window button

  -- 为按钮添加回调函数
  on button buttonActivated $ do
    -- 在按钮被点击时执行的操作
    putStrLn "Button clicked!"

  -- 显示窗口和其中的组件
  widgetShowAll window

  -- 运行主循环
  mainGUI