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