gistfile1.hs

drawString :: DrawingArea -> RGB -> Coordinate -> String -> IO ()
drawString drawArea (r, g, b) (x, y) str = do
  drawWin <- widgetGetDrawWindow drawArea
  let gcVal = newGCValues {foreground = Color r g b}
  gc <- gcNewWithValues drawWin gcVal
  layout <- widgetCreateLayout drawArea str
  layoutSetText layout str
  layoutSetWrap layout WrapWholeWords
  layoutSetWidth layout . Just $ 300
  lineCount <- layoutGetLineCount layout
  widgetSetSizeRequest drawArea 300 1000
  drawLayout drawWin gc 0 0 layout
  drawWindowClearAreaExpose drawWin 0 0 300 1000