--- gtk-support.c.~1.6.~	2003-05-08 08:03:54.000000000 +1000
+++ gtk-support.c	2003-06-15 16:10:38.000000000 +1000
@@ -160,6 +160,30 @@
 gtk_selection_data_data (GtkSelectionData* data)
 { return (data->length >= 0) ? scm_mem2string (data->data, data->length) : SCM_BOOL_F; }
 
+
+/* Same as in gtk-glue.c, could share with that file if it exported this. */
+static SCM
+_sgtk_helper_toscm_copy_GtkWidget (void *mem)
+{
+  return sgtk_wrap_gtkobj ((GtkObject*)(*(GtkWidget**)mem));
+}
+
+/* The list returned by gtk_container_children must 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
+gtk_container_children_interp (GtkContainer *container)
+{
+  GList* children;
+  SCM ret;
+  children = gtk_container_children (container);
+  ret = sgtk_list2scm (children, _sgtk_helper_toscm_copy_GtkWidget);
+  g_list_free (children);
+  return ret;
+}
+
+
+
 
 
 /* These SCM_PROCs are here to have them initialized in