3 (defcfun gtk-combo-box-get-active-iter :boolean
5 (iter (g-boxed-ref tree-iter)))
7 (defun combo-box-get-active-iter (combo-box)
8 (let ((i (make-instance 'tree-iter)))
9 (if (gtk-combo-box-get-active-iter combo-box i)
13 (defcfun (combo-box-active-text "gtk_combo_box_get_active_text") (:string :free-from-foreign t)
16 (export 'combo-box-active-text)
18 (defcfun (combo-box-popup "gtk_combo_box_popup") :void
21 (export 'combo-box-popup)
23 (defcfun (combo-box-popdown "gtk_combo_box_popdown") :void
26 (export 'combo-box-popdown)
28 (defcfun (combo-box-get-popup-accessible "gtk_combo_box_get_popup_accessible") g-object
31 (export 'combo-box-get-popup-accessible)
33 (defcfun gtk-combo-box-set-row-separator-func :void
37 (destroy-notify :pointer))
39 (defun combo-box-set-row-separator-func (combo-box func)
40 (gtk-combo-box-set-row-separator-func combo-box
41 (callback gtk-tree-view-row-separator-func-callback)
42 (allocate-stable-pointer func)
43 (callback stable-pointer-free-destroy-notify-callback)))