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