From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Tue, 29 Mar 2016 01:19:54 +0000 (-0700)
Subject: Free GdkWindowAttrs.
X-Git-Tag: mit-scheme-pucked-9.2.12~356
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4b793185f3ddedb9055e0bbf1ad6ae9ada67697d;p=mit-scheme.git

Free GdkWindowAttrs.
---

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)