Use new GType designators
[cl-gtk2.git] / gtk / gtk.combo-box.lisp
1 (in-package :gtk)
2
3 (defcfun gtk-combo-box-get-active-iter :boolean
4   (combo-box g-object)
5   (iter (g-boxed-foreign tree-iter)))
6
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)))
11
12 (defcfun (combo-box-active-text "gtk_combo_box_get_active_text") (:string :free-from-foreign t)
13   (combo-box g-object))
14
15 (export 'combo-box-active-text)
16
17 (defcfun (combo-box-popup "gtk_combo_box_popup") :void
18   (combo-box g-object))
19
20 (export 'combo-box-popup)
21
22 (defcfun (combo-box-popdown "gtk_combo_box_popdown") :void
23   (combo-box g-object))
24
25 (export 'combo-box-popdown)
26
27 (defcfun (combo-box-get-popup-accessible "gtk_combo_box_get_popup_accessible") g-object
28   (combo-box g-object))
29
30 (export 'combo-box-get-popup-accessible)
31
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))
37
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)))
43
44