Hi, Here's a patch which adds the missing Gdk Pixbuf Animation functions.
- Matt Arsenault
AddGdkPixbufAnimation.txt.gz
Description: GNU Zip compressed data
import Graphics.UI.Gtk
import Graphics.UI.Gtk.Gdk.Pixbuf
import Graphics.UI.Gtk.Gdk.PixbufAnimation
main = do
initGUI
window <- windowNew
vbox <- vBoxNew False 0
pba <- pixbufAnimationNewFromFile "arst.gif"
width <- pixbufAnimationGetWidth pba
height <- pixbufAnimationGetHeight pba
isStatic <- pixbufAnimationIsStaticImage pba
putStrLn $ "Width: " ++ show width
putStrLn $ "Height: " ++ show height
putStrLn $ "IsStatic: " ++ show isStatic
imgAnim <- imageNewFromAnimation pba
boxPackStart vbox imgAnim PackNatural 0
x1 <- pixbufNewFromFile "xkcd1.png"
x2 <- pixbufNewFromFile "xkcd2.png"
x3 <- pixbufNewFromFile "xkcd3.png"
simple <- pixbufSimpleAnimNew 600 200 1
mapM_ (pixbufSimpleAnimAddFrame simple) [x1, x2, x3]
pixbufSimpleAnimSetLoop simple True
simpleImg <- imageNewFromAnimation simple
boxPackStart vbox simpleImg PackNatural 0
imType <- get simpleImg imageStorageType
putStrLn $ "Simple type: " ++ show imType
onDestroy window mainQuit
set window [windowDefaultWidth := 1280,
containerChild := vbox ]
widgetShowAll window
mainGUI
------------------------------------------------------------------------------ Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day trial. Simplify your report design, integration and deployment - and focus on what you do best, core application coding. Discover what's new with Crystal Reports now. http://p.sf.net/sfu/bobj-july
_______________________________________________ Gtk2hs-devel mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/gtk2hs-devel
