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: guile-clutter: fixing ClutterMargin special wrapper Date: Fri, 18 Apr 2014 16:51:48 -0300 Message-ID: <20140418165148.227d2c71@capac> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="MP_/dm3xqY3YqQXUfqKMTgjovFa" X-Trace: ger.gmane.org 1397850765 11125 80.91.229.3 (18 Apr 2014 19:52:45 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Fri, 18 Apr 2014 19:52:45 +0000 (UTC) To: guile-devel Original-X-From: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Fri Apr 18 21:52:38 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 1WbEpw-0000aI-9l for guile-devel@m.gmane.org; Fri, 18 Apr 2014 21:52:36 +0200 Original-Received: from localhost ([::1]:39622 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WbEpv-0001I0-UI for guile-devel@m.gmane.org; Fri, 18 Apr 2014 15:52:35 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:48554) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WbEpn-0001HY-Az for guile-devel@gnu.org; Fri, 18 Apr 2014 15:52:33 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1WbEph-0006mp-DP for guile-devel@gnu.org; Fri, 18 Apr 2014 15:52:27 -0400 Original-Received: from maximusconfessor.all2all.org ([79.99.200.102]:42067) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WbEph-0006cN-6v for guile-devel@gnu.org; Fri, 18 Apr 2014 15:52:21 -0400 Original-Received: from localhost (unknown [192.168.0.2]) by maximusconfessor.all2all.org (Postfix) with ESMTP id DA563A04C0CC for ; Fri, 18 Apr 2014 21:51:59 +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 RgFw8m0dDgDn for ; Fri, 18 Apr 2014 21:33:53 +0200 (CEST) Original-Received: from capac (unknown [189.60.2.251]) by maximusconfessor.all2all.org (Postfix) with ESMTPSA id CC4C7A04C0F4 for ; Fri, 18 Apr 2014 21:51:52 +0200 (CEST) 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:17078 Archived-At: --MP_/dm3xqY3YqQXUfqKMTgjovFa Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit Content-Disposition: inline Hello, Please review and let me know, if it's ok, I'll push it. Thanks, David --MP_/dm3xqY3YqQXUfqKMTgjovFa Content-Type: text/x-patch Content-Transfer-Encoding: 7bit Content-Disposition: attachment; filename=0001-fixing-ClutterMargin-special-wrapper.patch >From a8166f67bd752ff7c71af50b27cfc52b2de4fe37 Mon Sep 17 00:00:00 2001 From: David PIROTTE Date: Fri, 18 Apr 2014 16:24:43 -0300 Subject: [PATCH] fixing ClutterMargin special wrapper * clutter/gnome/gw/clutter-support.c: scm_scm_to_clutter_margin to use scm_to_double (instead of 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_/dm3xqY3YqQXUfqKMTgjovFa--