3 (defcfun (container-add "gtk_container_add") :void
4 (container (g-object container
))
5 (widget (g-object widget
)))
7 (export 'container-add
)
9 (defcfun (container-remove "gtk_container_remove") :void
10 (container (g-object container
))
11 (widget (g-object widget
)))
13 (export 'container-remove
)
15 (defcfun (container-check-resize "gtk_container_check_resize") :void
18 (export 'container-check-resize
)
20 (defcallback gtk-container-foreach-callback
:void
21 ((widget g-object
) (data :pointer
))
23 (funcall (get-stable-pointer-value data
)
27 (defcfun gtk-container-foreach
:void
32 (defun map-container-children (container function
)
33 (with-stable-pointer (ptr function
)
34 (gtk-container-foreach container
(callback gtk-container-foreach-callback
) ptr
)))
36 (export 'map-container-children
)
38 (defcfun gtk-container-forall
:void
43 (defun map-container-internal-children (container function
)
44 (with-stable-pointer (ptr function
)
45 (gtk-container-forall container
(callback gtk-container-foreach-callback
) ptr
)))
47 (export 'map-container-internal-children
)
49 (defcfun (container-children "gtk_container_get_children") (glist g-object
:free-from-foreign t
)
52 ; TODO: ownership issues
54 (export 'container-children
)
56 ; TODO: gtk_container_set_reallocate_redraws
58 (defcfun (container-resize-children "gtk_container_resize_children") :void
61 (export 'container-resize-children
)
63 (defcfun gtk-container-child-type g-type
66 ; TODO: export gtk-container-child-type, requires better interface
68 ; TODO: child properties
70 ; TODO: gtk_container_propagate_expose
72 ; TODO: gtk_container_get_focus_chain
74 ; TODO: gtk_container_set_focus_chain
76 ; TODO: gtk_container_unset_focus_chain