--- 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; }