Merge remote-tracking branch 'andy128k/master'
[cl-gtk2.git] / gtk / gtk.combo-box.lisp
blobc4037506e31ec1964a3766942e8e126af989b287
1 (in-package :gtk)
3 (defcfun gtk-combo-box-get-active-iter :boolean
4 (combo-box g-object)
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)
10 i)))
12 (defcfun (combo-box-active-text "gtk_combo_box_get_active_text") (:string :free-from-foreign t)
13 (combo-box g-object))
15 (export 'combo-box-active-text)
17 (defcfun (combo-box-popup "gtk_combo_box_popup") :void
18 (combo-box g-object))
20 (export 'combo-box-popup)
22 (defcfun (combo-box-popdown "gtk_combo_box_popdown") :void
23 (combo-box g-object))
25 (export 'combo-box-popdown)
27 (defcfun (combo-box-get-popup-accessible "gtk_combo_box_get_popup_accessible") g-object
28 (combo-box g-object))
30 (export 'combo-box-get-popup-accessible)
32 (defcfun gtk-combo-box-set-row-separator-func :void
33 (combo-box g-object)
34 (func :pointer)
35 (data :pointer)
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)))