1;; -*- scheme -*-
2;; guile-gnome
3;; Copyright (C) 2004 Free Software Foundation, Inc.
4
5;; This program is free software; you can redistribute it and/or
6;; modify it under the terms of the GNU General Public License as
7;; published by the Free Software Foundation; either version 2 of
8;; the License, or (at your option) any later version.
9;;
10;; This program is distributed in the hope that it will be useful,
11;; but WITHOUT ANY WARRANTY; without even the implied warranty of
12;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13;; GNU General Public License for more details.
14;;
15;; You should have received a copy of the GNU General Public License
16;; along with this program; if not, contact:
17;;
18;; Free Software Foundation           Voice:  +1-617-542-5942
19;; 59 Temple Place - Suite 330        Fax:    +1-617-542-2652
20;; Boston, MA  02111-1307,  USA       gnu@gnu.org
21
22;;; Commentary:
23;;
24;;Custom wrapper definitions.
25;;
26;;; Code:
27
28(define-object Pixbuf
29  (in-module "Gdk")
30  (parent "GObject")
31  (c-name "GdkPixbuf")
32  (gtype-id "GDK_TYPE_PIXBUF")
33)
34
35(define-object PixbufSimpleAnim
36  (c-name "GdkPixbufSimpleAnim")
37  (gtype-id "GDK_TYPE_PIXBUF_SIMPLE_ANIM")
38)
39
40(define-function gdk_pixbuf_get_formats
41  (c-name "gdk_pixbuf_get_formats")
42  (overrides "gdk_pixbuf_get_formats")
43  (return-type "GSList*-of-GdkPixbufFormat*")
44)
45
46(define-method gdk_pixbuf_save_to_port
47  (of-object "GdkPixbuf")
48  (c-name "gdk_pixbuf_save_to_port")
49  (return-type "gboolean")
50  (leave-guile-mode #f)
51  (parameters
52   '("SCM" "port")
53   '("const-char*" "type")
54   '("SCM" "options_alist")
55   '("GError**" "error")))
56
57(ignore-glob  "*_get_type"
58              "_*"
59              "*_ref"
60              "*_unref"
61              "*_copy"
62              "*_free"
63              "*_newv"
64              "*_valist"
65              "*_setv")
66
67(ignore ;; "gdk_pixbuf_get_pixels"      ; it has to be wrapped,
68					; clutter_image_set_data needs those pixels :)
69        "gdk_pixbuf_new_from_data"
70        "gdk_pixbuf_new_from_inline"
71        "gdk_pixbuf_new_from_xpm_data"
72        "gdk_pixbuf_save_to_callbackv"
73        "gdk_pixbuf_save_to_bufferv"
74        "gdk_pixbuf_savev"
75        "gdk_pixbuf_loader_write"
76        "gdk_pixbuf_non_anim_new"
77        "gdk_pixbuf_set_option"
78
79        "gdk_pixbuf_animation_get_iter" ; GTimeVal*
80        "gdk_pixbuf_animation_iter_advance" ; GTimeVal*
81        )
82