gtk/gtk.image.lisp

   1 (in-package :gtk)
   2
   3 (defcfun gtk-image-get-animation (g-object pixbuf-animation)
   4   (image (g-object image)))
   5
   6 (defcfun gtk-image-set-from-animation :void
   7   (image (g-object image))
   8   (animation (g-object pixbuf-animation)))
   9
  10 (defun image-animation (image)
  11   (gtk-image-get-animation image))
  12
  13 (defun (setf image-animation) (animation image)
  14   (gtk-image-set-from-animation image animation))
  15
  16 (export 'image-animation)