+;;; Pixbuf Loader
+
+(defbinding %pixbuf-loader-new-with-type () pointer
+ (type string)
+ (nil gerror-signal :out))
+
+(defbinding %pixbuf-loader-new-with-mime-type () pointer
+ (mime-type string)
+ (nil gerror-signal :out))
+
+(defmethod allocate-foreign ((loader pixbuf-loader) &key type mime-type)
+ (cond
+ ((and type mime-type)
+ (error "Only one of the keyword arguments :TYPE and :MIME-TYPE can be specified"))
+ (type (%pixbuf-loader-new-with-type type))
+ (mime-type (%pixbuf-loader-new-with-mime-type mime-type))
+ ((call-next-method))))
+
+(defbinding pixbuf-loader-write (loader buffer &optional (length (length buffer))) boolean
+ (loader pixbuf-loader)
+ (buffer (unboxed-vector (unsigned-byte 8)))
+ (length integer)
+ (nil gerror-signal :out))
+
+(defbinding pixbuf-loader-close () boolean
+ (loader pixbuf-loader)
+ (nil gerror-signal :out))
+
+(defbinding pixbuf-loader-get-pixbuf () (or null pixbuf)
+ (loader pixbuf-loader))
+
+(defbinding pixbuf-loader-get-animation () (or null pixbuf-animation)
+ (loader pixbuf-loader))
+
+(defbinding pixbuf-loader-set-size () nil
+ (loader pixbuf-loader)
+ (width integer)
+ (height integer))
+
+