预期下面的程序不起作用: module Main where
import Graphics.UI.Gtk
import Control.Monad.IO.Class (liftIO)
import Control.Concurrent (forkIO)
main = do
unsafeInitGUIForThreadedRTS
window <- windowNe
我正在尝试使用Graphics.UI.Gtk.Printing在Haskell中使用gtk(2hs)打印文件或文本(打印机,而不是终端等) ,开罗和Pango。 代码如下: op <- printOperationNew
on op printOptBeginPrint $ \context -> do
set op [ printOperationNPages := 1