GtkContainer binding

diff --git a/api.ods b/api.ods
index 7fb2a4e..609babe 100644 (file)
Binary files a/api.ods and b/api.ods differ

diff --git a/bugs/issue-25a39c12de2cd7101903148ee7dafdc3e5d790ae.yaml b/bugs/issue-25a39c12de2cd7101903148ee7dafdc3e5d790ae.yaml
index 1c65f00..c584203 100644 (file)
--- a/bugs/issue-25a39c12de2cd7101903148ee7dafdc3e5d790ae.yaml
+++ b/bugs/issue-25a39c12de2cd7101903148ee7dafdc3e5d790ae.yaml
@@ -5,8 +5,8 @@ type: :task
 component: cl-gtk2
 release: "0.1"
 reporter: Kalyanov Dmitry <Kalyanov.Dmitry@gmail.com>
-status: :unstarted
-disposition: 
+status: :closed
+disposition: :fixed
 creation_time: 2009-10-03 00:58:04.994858 Z
 references: []
 
@@ -16,3 +16,7 @@ log_events:
   - Kalyanov Dmitry <Kalyanov.Dmitry@gmail.com>
   - created
   - ""
+- - 2009-10-10 11:44:29.875448 Z
+  - Kalyanov Dmitry <Kalyanov.Dmitry@gmail.com>
+  - closed with disposition fixed
+  - ""

diff --git a/gtk/gtk.child-properties.lisp b/gtk/gtk.child-properties.lisp
index ae82510..ea930b0 100644 (file)
--- a/gtk/gtk.child-properties.lisp
+++ b/gtk/gtk.child-properties.lisp
@@ -12,6 +12,19 @@
   (property-name :string)
   (value (:pointer g-value)))
 
+(defcfun gtk-container-class-find-child-property :pointer
+  (class :pointer)
+  (property-name :string))
+
+(defun container-child-property-info (type property-name)
+  (let ((class (g-type-class-ref type)))
+    (unwind-protect
+         (let ((g-param-spec (gtk-container-class-find-child-property class property-name)))
+           (parse-g-param-spec g-param-spec))
+      (g-type-class-unref class))))
+
+(export 'container-child-property-info)
+
 (defun container-call-get-property (container child property-name type)
   (with-foreign-object (gvalue 'g-value)
     (g-value-unset gvalue)
@@ -27,6 +40,8 @@
     (g-value-unset gvalue)
     (values)))
 
+(export '(container-call-get-property container-call-set-property))
+
 (defmacro define-child-property (container-type property-name property-gname property-type readable writable export)
   (when (stringp container-type) (setf container-type (registered-object-type-by-name container-type)))
   `(progn

diff --git a/gtk/gtk.container.lisp b/gtk/gtk.container.lisp
index 67e557e..9283d7f 100644 (file)
--- a/gtk/gtk.container.lisp
+++ b/gtk/gtk.container.lisp
@@ -67,10 +67,3 @@
   (event (g-boxed-foreign event)))
 
 (export 'container-propagate-expose)
-
-; TODO: gtk_container_get_focus_chain
-
-; TODO: gtk_container_set_focus_chain
-
-; TODO: gtk_container_unset_focus_chain
-