From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 11260 invoked by alias); 14 Jun 2003 23:46:39 -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 11226 invoked from network); 14 Jun 2003 23:46:38 -0000 Received: from unknown (HELO snoopy.pacific.net.au) (61.8.0.36) by sources.redhat.com with SMTP; 14 Jun 2003 23:46:38 -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.3) with ESMTP id h5ENkaYd012643 for ; Sun, 15 Jun 2003 09:46:36 +1000 Received: from wisma.pacific.net.au (wisma.pacific.net.au [210.23.129.72]) by sunny.pacific.net.au with ESMTP id h5ENkaQg025677 for ; Sun, 15 Jun 2003 09:46:36 +1000 (EST) Received: from localhost (ppp116.dyn228.pacific.net.au [203.143.228.116]) by wisma.pacific.net.au (8.12.9/8.12.9) with ESMTP id h5ENkYYZ027183 for ; Sun, 15 Jun 2003 09:46:34 +1000 (EST) Received: from gg by localhost with local (Exim 3.35 #1 (Debian)) id 19RKj6-0000tK-00; Sun, 15 Jun 2003 09:46:28 +1000 To: guile-gtk@sources.redhat.com Subject: GdkColor field setters (was: Completed RGB functionality) References: <87bry3iznh.fsf@zip.com.au> From: Kevin Ryde Mail-Copies-To: never Date: Sat, 14 Jun 2003 23:46:00 -0000 In-Reply-To: <87bry3iznh.fsf@zip.com.au> (Kevin Ryde's message of "Fri, 16 May 2003 09:00:18 +1000") Message-ID: <878ys4xlwr.fsf_-_@zip.com.au> User-Agent: Gnus/5.090019 (Oort Gnus v0.19) Emacs/21.2 (gnu/linux) MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-SW-Source: 2003-q2/txt/msg00138.txt.bz2 --=-=-= Content-length: 241 I wrote: > > I'd suggest gdk-color-new should just create a GdkColor object with > zero fields. Field setter functions can be introduced to manipulate > them. As threatened, * gdk-1.2.defs (GdkColor): Add setters for all fields. --=-=-= Content-Disposition: attachment; filename=gdk-1.2.defs.color-setters.diff Content-length: 659 Index: gdk-1.2.defs =================================================================== RCS file: /cvsroot/guile-gtk/guile-gtk-1.2/gdk-1.2.defs,v retrieving revision 1.31 diff -u -u -r1.31 gdk-1.2.defs --- gdk-1.2.defs 1 Jun 2003 05:52:43 -0000 1.31 +++ gdk-1.2.defs 14 Jun 2003 23:42:57 -0000 @@ -413,10 +413,10 @@ (define-boxed GdkColor (copy gdk_color_copy) (free gdk_color_free) - (fields (ulong pixel) - (uint red) - (uint green) - (uint blue)) + (fields (ulong pixel (setter #t)) + (uint red (setter #t)) + (uint green (setter #t)) + (uint blue (setter #t))) (conversion "sgtk_color_conversion")) (define-boxed GdkImage --=-=-=--