From 398cf6666c88bb855241665cce637ed8f8fa8f03 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Thu, 8 May 2014 08:41:07 -0700 Subject: [PATCH] gtk: Fix gtk-widget-create-pango-layout's failure test. --- src/gtk/gtk-widget.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/src/gtk/gtk-widget.scm b/src/gtk/gtk-widget.scm index 1ae1bba35..e4ce63ed4 100644 --- a/src/gtk/gtk-widget.scm +++ b/src/gtk/gtk-widget.scm @@ -196,11 +196,12 @@ USA. (guarantee-gtk-widget widget 'gtk-widget-create-pango-layout) (if (not (default-object? text)) (guarantee-string text 'gtk-widget-create-pango-layout)) - (let ((layout (make-pango-layout))) + (let* ((layout (make-pango-layout)) + (alien (gobject-alien layout))) (C-call "gtk_widget_create_pango_layout" - (gobject-alien layout) (gobject-alien widget) + alien (gobject-alien widget) (if (default-object? text) 0 text)) - (error-if-null layout "Could not create:" layout) + (error-if-null alien "Could not create:" layout) layout)) (define (gtk-widget-get-size widget) -- 2.25.1