From: Antonin D. (lists) <li...@an...> - 2014-08-19 16:05:25
|
Hi! With GTK 3 (gtk2hs 0.12.5.7), this code compiles fine (at least on my system). Which version of gtk2hs are you using? Cheers, Antonin On 19/08/2014 16:44, Bram Neijt wrote: > import Graphics.UI.Gtk.Gdk.Pixbuf > import System.Glib.UTFString > import qualified Data.Text as T > > jpegImageFormat :: ImageFormat > jpegImageFormat = pixbufGetFormats !! 6 > > pixbufSaveJpeg :: Pixbuf -> FilePath -> IO() > pixbufSaveJpeg pb toPath = > pixbufSave pb toPath jpegImageFormat [] > > scaleFile :: FilePath -> FilePath -> IO () > scaleFile fromPath toPath = do > original <- pixbufNewFromFile fromPath > scaled <- pixbufScaleSimple original 800 800 InterpHyper > putStrLn toPath > pixbufSaveJpeg scaled toPath > > main = scaleFile "hanginthere.jpg" "scaledinthere.jpg" |