Free GdkWindowAttrs.

diff --git a/src/gl/gl-glx.scm b/src/gl/gl-glx.scm
index 8b905b3555e8ab425c5c0abdebaf9e0a55ec5a22..b5b8e380d11b00a93008c9874e29305cef0d4df9 100644 (file)
--- 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 30c4433e3773637e6ee0529409597d63285f0122..9c4c22a78e819ae6918a6a61ed6b2cd4aff4c2a0 100644 (file)
--- 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 050cf6b141b7a40f81c5e9614d9e44bd10e20470..234afca1ccb353e9fe475a8672014c156bb08e65 100644 (file)
--- 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)