在三便士的图形用户界面画布上绘制图像

我对画布有意见。我已经修改了画布.hs在画布上绘制图像的示例程序

canvas # drawImg

canvas <- UI.canvas
      # set UI.height canvasSize
      # set UI.width  canvasSize
      # set style [("border", "solid black 1px"), ("background", "#eee")]

图纸在哪里

drawImg :: UI.Canvas -> UI ()
drawImg canvas = do
  url <- UI.loadFile "image/png" "resources/img.png"
  img <- UI.img # set UI.src url
  UI.drawImage img (0,0) canvas

它的行为应该与原始版本代码中用于绘制图像的单击函数相同。