miscellaneous classes, containers, child properties

[cl-gtk2.git] / gtk / gtk.bin.lisp

diff --git a/gtk/gtk.bin.lisp b/gtk/gtk.bin.lisp
new file mode 100644 (file)
index 0000000..2f99f8a
--- /dev/null
+++ b/gtk/gtk.bin.lisp
@@ -0,0 +1,6 @@
+(in-package :gtk)
+
+(defcfun (bin-child "gtk_bin_get_child") g-object
+  (bin g-object))
+
+(export 'bin-child)
\ No newline at end of file