From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 27571 invoked by alias); 28 Aug 2003 01:02:48 -0000 Mailing-List: contact guile-gtk-help@sources.redhat.com; run by ezmlm Precedence: bulk List-Subscribe: List-Archive: List-Post: List-Help: , Sender: guile-gtk-owner@sources.redhat.com Received: (qmail 27549 invoked from network); 28 Aug 2003 01:02:47 -0000 Received: from unknown (HELO snoopy.pacific.net.au) (61.8.0.36) by sources.redhat.com with SMTP; 28 Aug 2003 01:02:47 -0000 Received: from sunny.pacific.net.au (sunny.pacific.net.au [203.2.228.40]) by snoopy.pacific.net.au (8.12.3/8.12.3/Debian-6.4) with ESMTP id h7S12j0J006831 for ; Thu, 28 Aug 2003 11:02:45 +1000 Received: from wisma.pacific.net.au (wisma.pacific.net.au [210.23.129.72]) by sunny.pacific.net.au with ESMTP id h7S12jkv024028 for ; Thu, 28 Aug 2003 11:02:45 +1000 (EST) Received: from localhost (ppp99.dyn228.pacific.net.au [203.143.228.99]) by wisma.pacific.net.au (8.12.9/8.12.9) with ESMTP id h7S12hvj015919 for ; Thu, 28 Aug 2003 11:02:44 +1000 (EST) Received: from gg by localhost with local (Exim 3.35 #1 (Debian)) id 19sBBG-0001Cl-00; Thu, 28 Aug 2003 11:02:30 +1000 To: guile-gtk@sources.redhat.com Subject: gdk-pixbuf-new-from-xpm-data From: Kevin Ryde Mail-Copies-To: never Date: Thu, 28 Aug 2003 01:02:00 -0000 Message-ID: <87brualhll.fsf@zip.com.au> User-Agent: Gnus/5.090019 (Oort Gnus v0.19) Emacs/21.3 (gnu/linux) MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-SW-Source: 2003-q3/txt/msg00062.txt.bz2 --=-=-= Content-length: 309 Enabling a commented-out function, * gdk-pixbuf/gdk-pixbuf.defs (gdk_pixbuf_new_from_xpm_data_interp): New function. * gdk-pixbuf/gdk-pixbuf-support.c, gdk-pixbuf/gdk-pixbuf-support.h: New files. * gdk-pixbuf/Makefile.am (libguilegdkpixbuf_1_2_la_SOURCES): Add them. --=-=-= Content-Disposition: attachment; filename=gdk-pixbuf.defs.xpm-data.diff Content-length: 459 --- gdk-pixbuf.defs.~1.5.~ 1970-01-01 10:00:01.000000000 +1000 +++ gdk-pixbuf.defs 2003-08-28 10:59:05.000000000 +1000 @@ -118,9 +118,9 @@ ;; (GdkPixbufDestroyNotify destroy-fn) ;; (pointer destroy-fn-data))) -;;(define-func gdk_pixbuf_new_from_xpm_data -;; GdkPixbuf -;; ((cvec string) data))) +(define-func gdk_pixbuf_new_from_xpm_data_interp + (GdkPixbuf (copy #f)) + (((cvec string) data))) (define-func gdk_pixbuf_add_alpha GdkPixbuf --=-=-= Content-Type: text/x-csrc Content-Disposition: attachment; filename=gdk-pixbuf-support.c Content-length: 1151 /* * Copyright 2003 Kevin Ryde * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2, or (at your option) * any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this software; see the file COPYING. If not, write to * the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ #include #include #include /* sgtk_scm2cvec puts a zero element (ie. NULL) at the end of "data". This interp is just to discard the len parameter. Maybe could do that with a change to build-guile-gtk-1.2. */ GdkPixbuf * gdk_pixbuf_new_from_xpm_data_interp (int len, const char **data) { return gdk_pixbuf_new_from_xpm_data (data); } --=-=-=--