gtk/gtk.tree-selection.lisp

   1 (in-package :gtk)
   2
   3 (defcfun gtk-tree-selection-set-select-function :void
   4   (selection g-object)
   5   (select-function :pointer)
   6   (data :pointer)
   7   (destroy-notify :pointer))
   8
   9 (defcallback gtk-tree-selection-select-function-callback :boolean
  10     ((selection g-object) (model g-object) (path (g-boxed-foreign tree-path)) (path-currently-selected :boolean) (data :pointer))
  11   (let ((fn (get-stable-pointer-value data)))
  12     (restart-case
  13         (funcall fn selection model path path-currently-selected)
  14       (return-true () t)
  15       (return-false () nil))))
  16
  17 (defun tree-selection-set-select-function (tree-selection fn)
  18   (gtk-tree-selection-set-select-function tree-selection
  19                                           (callback gtk-tree-selection-select-function-callback)
  20                                           (allocate-stable-pointer fn)
  21                                           (callback stable-pointer-free-destroy-notify-callback)))
  22
  23 (defcfun gtk-tree-selection-get-user-data :pointer (tree-selection g-object))
  24
  25 (defun tree-selection-get-select-function (tree-selection)
  26   (let ((ptr (gtk-tree-selection-get-user-data tree-selection)))
  27     (unless (null-pointer-p ptr)
  28       (get-stable-pointer-value ptr))))
  29
  30 (defcfun gtk-tree-selection-get-selected :boolean
  31   (selection g-object)
  32   (model :pointer)
  33   (iter (g-boxed-foreign tree-iter)))
  34
  35 (defun tree-selection-selected (tree-selection)
  36   (let ((iter (make-instance 'tree-iter)))
  37     (when (gtk-tree-selection-get-selected tree-selection (null-pointer) iter)
  38       iter)))
  39
  40 (export 'tree-selection-selected)
  41
  42 (defcfun gtk-tree-selection-selected-foreach :void
  43   (selection g-object)
  44   (func :pointer)
  45   (data :pointer))
  46
  47 (defcallback gtk-tree-selection-foreach-callback :void
  48     ((model g-object) (path (g-boxed-foreign tree-path)) (iter (g-boxed-foreign tree-iter)) (data :pointer))
  49   (let ((fn (get-stable-pointer-value data)))
  50     (funcall fn model path iter)))
  51
  52 (defun map-tree-selection-rows (tree-selection fn)
  53   (with-stable-pointer (ptr fn)
  54     (gtk-tree-selection-selected-foreach tree-selection (callback gtk-tree-selection-foreach-callback) ptr)))
  55
  56 (export 'map-tree-selection-rows)
  57
  58 (defcfun gtk-tree-selection-get-selected-rows (glist (g-boxed-foreign tree-path) :free-from-foreign t)
  59   (selection g-object)
  60   (model :pointer))
  61
  62 (defun tree-selection-selected-rows (tree-selection)
  63   (gtk-tree-selection-get-selected-rows tree-selection (null-pointer)))
  64
  65 (export 'tree-selection-selected-rows)
  66
  67 (defcfun (tree-selection-count-selected-rows "gtk_tree_selection_count_selected_rows") :int
  68   (selection g-object))
  69
  70 (export 'tree-selection-count-selected-rows)
  71
  72 (defcfun (tree-selection-select-path "gtk_tree_selection_select_path") :void
  73   (selection g-object)
  74   (path (g-boxed-foreign tree-path)))
  75
  76 (export 'tree-selection-select-path)
  77
  78 (defcfun (tree-selection-unselect-path "gtk_tree_selection_unselect_path") :void
  79   (selection g-object)
  80   (path (g-boxed-foreign tree-path)))
  81
  82 (export 'tree-selection-unselect-path)
  83
  84 (defcfun (tree-selection-path-selected-p "gtk_tree_selection_path_is_selected") :boolean
  85   (selection g-object)
  86   (path (g-boxed-foreign tree-path)))
  87
  88 (export 'tree-selection-path-selected-p)
  89
  90 (defcfun (tree-selection-select-iter "gtk_tree_selection_select_iter") :void
  91   (selection g-object)
  92   (iter (g-boxed-foreign tree-iter)))
  93
  94 (export 'tree-selection-select-iter)
  95
  96 (defcfun (tree-selection-unselect-iter "gtk_tree_selection_unselect_iter") :void
  97   (selection g-object)
  98   (iter (g-boxed-foreign tree-iter)))
  99
 100 (export 'tree-selection-unselect-iter)
 101
 102 (defcfun (tree-selection-iter-selected-p "gtk_tree_selection_iter_is_selected") :boolean
 103   (selection g-object)
 104   (iter (g-boxed-foreign tree-iter)))
 105
 106 (export 'tree-selection-iter-selected-p)
 107
 108 (defcfun (tree-selection-select-all "gtk_tree_selection_select_all") :void
 109   (selection g-object))
 110
 111 (export 'tree-selection-select-all)
 112
 113 (defcfun (tree-selection-unselect-all "gtk_tree_selection_unselect_all") :void
 114   (selection g-object))
 115
 116 (export 'tree-selection-unselect-all)
 117
 118 (defcfun (tree-selection-select-range "gtk_tree_selection_select_range") :void
 119   (selection g-object)
 120   (start-path (g-boxed-foreign tree-path))
 121   (end-path (g-boxed-foreign tree-path)))
 122
 123 (export 'tree-selection-select-range)
 124
 125 (defcfun (tree-selection-unselect-range "gtk_tree_selection_unselect_range") :void
 126   (selection g-object)
 127   (start-path (g-boxed-foreign tree-path))
 128   (end-path (g-boxed-foreign tree-path)))
 129
 130 (export 'tree-selection-unselect-range)