gdk-list-visuals leak

[Kevin Ryde <user42@zip.com.au>]

[-- Attachment #1: Type: text/plain, Size: 122 bytes --]

        * gdk-1.2.defs, gdk-support.c, guile-gtk.h (gdk_list_visuals): Use an
        _interp to free the returned list.


[-- Attachment #2: gdk-1.2.defs.list-visuals.diff --]
[-- Type: text/plain, Size: 348 bytes --]

--- gdk-1.2.defs.~1.52.~	1970-01-01 10:00:01.000000000 +1000
+++ gdk-1.2.defs	2003-08-28 10:29:35.000000000 +1000
@@ -1915,8 +1915,8 @@
   SCM					; list of GdkVisualType
   ())
 
-(define-func gdk_list_visuals
-  ((list GdkVisual))
+(define-func gdk_list_visuals_interp
+  SCM ;; list of GdkVisual
   ())
 
 (define-func gdk_visual_get_best_depth

[-- Attachment #3: gdk-support.c.list-visuals.diff --]
[-- Type: text/plain, Size: 812 bytes --]

--- gdk-support.c.~1.40.~	1970-01-01 10:00:01.000000000 +1000
+++ gdk-support.c	2003-08-28 10:37:04.000000000 +1000
@@ -1422,6 +1422,26 @@
   return list;
 }
 
+static SCM
+_sgdk_helper_toscm_copy_GdkVisual (void *mem)
+{
+  return sgtk_boxed2scm (* (GdkVisual**) mem, &sgtk_gdk_visual_info, 1);
+}
+
+/* The list returned by gdk_list_visuals be freed by the caller.
+   Could do this sort of thing with a .defs file option, but easy enough to
+   have explicit code while there's only a few such.  */
+SCM
+gdk_list_visuals_interp (void)
+{
+  GList* visuals;
+  SCM ret;
+  visuals = gdk_list_visuals ();
+  ret = sgtk_list2scm (visuals, _sgdk_helper_toscm_copy_GdkVisual);
+  g_list_free (visuals);
+  return ret;
+}
+
 GList*
 gdk_drag_context_targets (GdkDragContext* context)
 { return context->targets; }

[-- Attachment #4: guile-gtk.h.list-visuals.diff --]
[-- Type: text/plain, Size: 562 bytes --]

--- guile-gtk.h.~1.39.~	1970-01-01 10:00:01.000000000 +1000
+++ guile-gtk.h	2003-08-28 10:33:55.000000000 +1000
@@ -77,6 +77,11 @@
   char **args_short_names;
 } sgtk_object_info;
 
+
+/* gdk-glue.c */
+extern sgtk_boxed_info sgtk_gdk_visual_info;
+
+
 void sgtk_register_type_infos (sgtk_type_info **infos);
 sgtk_type_info *sgtk_get_type_info (guint type_seqno);
 
@@ -415,6 +420,7 @@
 
 SCM gdk_query_depths_interp (void);
 SCM gdk_query_visual_types_interp (void);
+SCM gdk_list_visuals_interp (void);
 
 GList* gdk_drag_context_targets (GdkDragContext*);