From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: David Pirotte Newsgroups: gmane.lisp.guile.devel Subject: Re: guile-clutter: fixing ClutterMargin special wrapper Date: Fri, 18 Apr 2014 23:10:30 -0300 Message-ID: <20140418231030.2c800c75@capac> References: <20140418165148.227d2c71@capac> <87r44u467z.fsf@yeeloong.lan> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="MP_/0lqTd9EN2OLGM=b+G/AK3.s" X-Trace: ger.gmane.org 1397873467 26309 80.91.229.3 (19 Apr 2014 02:11:07 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sat, 19 Apr 2014 02:11:07 +0000 (UTC) Cc: guile-devel To: Mark H Weaver Original-X-From: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Sat Apr 19 04:11:00 2014 Return-path: Envelope-to: guile-devel@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1WbKk7-0006Td-R3 for guile-devel@m.gmane.org; Sat, 19 Apr 2014 04:10:59 +0200 Original-Received: from localhost ([::1]:40620 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WbKk7-0008Db-6R for guile-devel@m.gmane.org; Fri, 18 Apr 2014 22:10:59 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:56963) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WbKjy-00087S-HW for guile-devel@gnu.org; Fri, 18 Apr 2014 22:10:56 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1WbKjq-0000pZ-HU for guile-devel@gnu.org; Fri, 18 Apr 2014 22:10:50 -0400 Original-Received: from maximusconfessor.all2all.org ([79.99.200.102]:43288) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WbKjq-0000ot-AU for guile-devel@gnu.org; Fri, 18 Apr 2014 22:10:42 -0400 Original-Received: from localhost (unknown [192.168.0.2]) by maximusconfessor.all2all.org (Postfix) with ESMTP id ED207A04C10D; Sat, 19 Apr 2014 04:10:40 +0200 (CEST) Original-Received: from maximusconfessor.all2all.org ([192.168.0.1]) by localhost (maximusconfessor.all2all.org [192.168.0.2]) (amavisd-new, port 10024) with ESMTP id Hd4a8Mi2DZ77; Sat, 19 Apr 2014 03:52:34 +0200 (CEST) Original-Received: from capac (unknown [189.60.2.251]) by maximusconfessor.all2all.org (Postfix) with ESMTPSA id B51DBA04C0D1; Sat, 19 Apr 2014 04:10:33 +0200 (CEST) In-Reply-To: <87r44u467z.fsf@yeeloong.lan> X-Mailer: Claws Mail 3.9.3 (GTK+ 2.24.23; x86_64-pc-linux-gnu) X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-Received-From: 79.99.200.102 X-BeenThere: guile-devel@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: "Developers list for Guile, the GNU extensibility library" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Original-Sender: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.devel:17083 Archived-At: --MP_/0lqTd9EN2OLGM=b+G/AK3.s Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit Content-Disposition: inline Hi Mark, > Rather: > scm_scm_to_clutter_margin: Use scm_to_double, not scm_to_uint8. > > > * clutter/gnome/gw/clutter-support.c: scm_scm_to_clutter_margin to use > > Rather: > * clutter/gnome/gw/clutter-support.c (scm_scm_to_clutter_margin): Use Thank you, I have changed the commit message as suggested and pushed. Cheers, David --MP_/0lqTd9EN2OLGM=b+G/AK3.s Content-Type: text/x-patch Content-Transfer-Encoding: 7bit Content-Disposition: attachment; filename=0001-fixing-ClutterMargin-special-wrapper.patch >From 28436efe5ba1472dcc199d87a6b07b993bb3c441 Mon Sep 17 00:00:00 2001 From: David PIROTTE Date: Fri, 18 Apr 2014 23:02:09 -0300 Subject: [PATCH] fixing ClutterMargin special wrapper * clutter/gnome/gw/clutter-support.c (scm_scm_to_clutter_margin): Use scm_to_double, not scm_to_uint8, for all 4 ClutterMargin structure elements. --- clutter/gnome/gw/clutter-support.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/clutter/gnome/gw/clutter-support.c b/clutter/gnome/gw/clutter-support.c index 7650f9e..e895d1e 100644 --- a/clutter/gnome/gw/clutter-support.c +++ b/clutter/gnome/gw/clutter-support.c @@ -147,10 +147,10 @@ scm_scm_to_clutter_margin (SCM scm) { ClutterMargin ret; - ret.left = scm_to_uint8 (scm_car (scm)); - ret.right = scm_to_uint8 (scm_cadr (scm)); - ret.top = scm_to_uint8 (scm_caddr (scm)); - ret.bottom = scm_to_uint8 (scm_cadddr (scm)); + ret.left = scm_to_double (scm_car (scm)); + ret.right = scm_to_double (scm_cadr (scm)); + ret.top = scm_to_double (scm_caddr (scm)); + ret.bottom = scm_to_double (scm_cadddr (scm)); return clutter_margin_copy (&ret); } -- 1.9.1 --MP_/0lqTd9EN2OLGM=b+G/AK3.s--