X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=inline;f=gtk%2Fgtk.container.lisp;h=9283d7f43e33a70dbed9514907b5172eff482b3e;hb=eadf2b7a4f39e93b50debf05a0925786615564d7;hp=23f99ee43001dfcb479fcd8f8021278c030ebd5e;hpb=e9622209ae8a02f82c2813ea7d358d711e1ba2d0;p=cl-gtk2.git

diff --git a/gtk/gtk.container.lisp b/gtk/gtk.container.lisp
index 23f99ee..9283d7f 100644
--- a/gtk/gtk.container.lisp
+++ b/gtk/gtk.container.lisp
@@ -49,29 +49,21 @@
 (defcfun (container-children "gtk_container_get_children") (glist g-object :free-from-foreign t)
   (container g-object))
 
-; TODO: ownership issues
-
 (export 'container-children)
 
-; TODO: gtk_container_set_reallocate_redraws
-
 (defcfun (container-resize-children "gtk_container_resize_children") :void
   (container g-object))
 
 (export 'container-resize-children)
 
-(defcfun gtk-container-child-type g-type
+(defcfun (container-child-type "gtk_container_child_type") g-type-designator
   (container g-object))
 
-; TODO: export gtk-container-child-type, requires better interface
-
-; TODO: child properties
-
-; TODO: gtk_container_propagate_expose
+(export 'container-child-type)
 
-; TODO: gtk_container_get_focus_chain
-
-; TODO: gtk_container_set_focus_chain
-
-; TODO: gtk_container_unset_focus_chain
+(defcfun (container-propagate-expose "gtk_container_propagate_expose") :void
+  (container (g-object container))
+  (child (g-object widget))
+  (event (g-boxed-foreign event)))
 
+(export 'container-propagate-expose)