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     (if (gtk-combo-box-get-active-iter combo-box i)
  10         i
  11         (release i))))
  12
  13 (defcfun (combo-box-active-text "gtk_combo_box_get_active_text") (:string :free-from-foreign t)
  14   (combo-box g-object))
  15
  16 (export 'combo-box-active-text)
  17
  18 (defcfun (combo-box-popup "gtk_combo_box_popup") :void
  19   (combo-box g-object))
  20
  21 (export 'combo-box-popup)
  22
  23 (defcfun (combo-box-popdown "gtk_combo_box_popdown") :void
  24   (combo-box g-object))
  25
  26 (export 'combo-box-popdown)
  27
  28 (defcfun (combo-box-get-popup-accessible "gtk_combo_box_get_popup_accessible") g-object
  29   (combo-box g-object))
  30
  31 (export 'combo-box-get-popup-accessible)
  32
  33 (defcfun gtk-combo-box-set-row-separator-func :void
  34   (combo-box g-object)
  35   (func :pointer)
  36   (data :pointer)
  37   (destroy-notify :pointer))
  38
  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)))