From 4b793185f3ddedb9055e0bbf1ad6ae9ada67697d Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Mon, 28 Mar 2016 18:19:54 -0700 Subject: [PATCH] Free GdkWindowAttrs. --- src/gl/gl-glx.scm | 1 + src/gtk/fix-layout.scm | 1 + src/gtk/gtk-ev.scm | 1 + 3 files changed, 3 insertions(+) diff --git a/src/gl/gl-glx.scm b/src/gl/gl-glx.scm index 8b905b355..b5b8e380d 100644 --- a/src/gl/gl-glx.scm +++ b/src/gl/gl-glx.scm @@ -125,6 +125,7 @@ USA. (bit-ior (if x (C-enum "GDK_WA_X") 0) (if y (C-enum "GDK_WA_Y") 0) (C-enum "GDK_WA_VISUAL"))))) + (free attr) (error-if-null GdkWindow "Could not create GdkWindow:" widget) (set-glx-widget-xwindow! widget (C-call "gdk_window_xid" GdkWindow)) (C-call "gtk_widget_set_window" GtkWidget GdkWindow) diff --git a/src/gtk/fix-layout.scm b/src/gtk/fix-layout.scm index 30c4433e3..9c4c22a78 100644 --- a/src/gtk/fix-layout.scm +++ b/src/gtk/fix-layout.scm @@ -95,6 +95,7 @@ USA. (C-call "gdk_window_new" main-GdkWindow parent-GdkWindow attr (bit-ior (if x (C-enum "GDK_WA_X") 0) (if y (C-enum "GDK_WA_Y") 0))) + (free attr) (error-if-null main-GdkWindow "Could not create main window:" widget) (C-call "gtk_widget_set_window" GtkWidget main-GdkWindow) (C-call "gdk_window_set_user_data" main-GdkWindow GtkWidget) diff --git a/src/gtk/gtk-ev.scm b/src/gtk/gtk-ev.scm index 050cf6b14..234afca1c 100644 --- a/src/gtk/gtk-ev.scm +++ b/src/gtk/gtk-ev.scm @@ -118,6 +118,7 @@ USA. (C-call "gdk_window_new" event-GdkWindow main-GdkWindow attr (bit-ior (C-enum "GDK_WA_X") (C-enum "GDK_WA_Y") (C-enum "GDK_WA_CURSOR"))) + (free attr) (error-if-null event-GdkWindow "Could not create event window:" widget) (C-call "gdk_window_set_user_data" event-GdkWindow alien) (C-call "gdk_window_show" event-GdkWindow) -- 2.25.1