3 (defcfun gtk-combo-box-get-active-iter :boolean
5 (iter (g-boxed-foreign tree-iter)))
7 (defun combo-box-get-active-iter (combo-box)
8 (let ((i (make-instance 'tree-iter)))
9 (when (gtk-combo-box-get-active-iter combo-box i)
12 (defcfun (combo-box-active-text "gtk_combo_box_get_active_text") (:string :free-from-foreign t)
15 (export 'combo-box-active-text)
17 (defcfun (combo-box-popup "gtk_combo_box_popup") :void
20 (export 'combo-box-popup)
22 (defcfun (combo-box-popdown "gtk_combo_box_popdown") :void
25 (export 'combo-box-popdown)
27 (defcfun (combo-box-get-popup-accessible "gtk_combo_box_get_popup_accessible") g-object
30 (export 'combo-box-get-popup-accessible)
32 (defcfun gtk-combo-box-set-row-separator-func :void
36 (destroy-notify :pointer))
38 (defun combo-box-set-row-separator-func (combo-box func)
39 (gtk-combo-box-set-row-separator-func combo-box
40 (callback gtk-tree-view-row-separator-func-callback)
41 (allocate-stable-pointer func)
42 (callback stable-pointer-free-destroy-notify-callback)))