gtk/gtk.objects.lisp

   1 (in-package :gtk)
   2
   3 (define-g-boxed-cstruct border "GtkBorder"
   4   (left :int :initform 0)
   5   (right :int :initform 0)
   6   (top :int :initform 0)
   7   (bottom :int :initform 0))
   8
   9 (define-foreign-type pointer-as-integer-foreign-type ()
  10   ()
  11   (:actual-type :pointer)
  12   (:simple-parser pointer-as-integer))
  13
  14 (defmethod translate-to-foreign (value (type pointer-as-integer-foreign-type))
  15   (make-pointer value))
  16
  17 (defmethod translate-from-foreign (value (type pointer-as-integer-foreign-type))
  18   (pointer-address value))
  19
  20 (define-g-boxed-cstruct tree-iter "GtkTreeIter"
  21   (stamp :int :initform 0)
  22   (user-data pointer-as-integer :initform 0)
  23   (user-data-2 pointer-as-integer :initform 0)
  24   (user-data-3 pointer-as-integer :initform 0))
  25
  26 (export 'tree-iter)
  27 (export 'tree-iter-stamp)
  28 (export 'tree-iter-user-data)
  29
  30 (defctype tree-path :pointer)
  31
  32 (defcfun gtk-tree-path-new :pointer)
  33 (defcfun gtk-tree-path-free :void (path :pointer))
  34
  35 (define-g-boxed-opaque tree-path "GtkTreePath"
  36   :alloc (gtk-tree-path-new))
  37
  38 (defcfun (%gtk-tree-path-get-depth "gtk_tree_path_get_depth") :int
  39   (path tree-path))
  40
  41 (defcfun (%gtk-tree-path-get-indices "gtk_tree_path_get_indices") (:pointer :int)
  42   (path tree-path))
  43
  44 (defcfun (%gtk-tree-path-append-index "gtk_tree_path_append_index") :void
  45   (path :pointer)
  46   (index :int))
  47
  48 (defun tree-path-indices (path)
  49   (tree-path-get-indices path))
  50
  51 (defun (setf tree-path-indices) (new-value path)
  52   (tree-path-set-indices new-value path))
  53
  54 (defun tree-path-get-indices (path)
  55   (setf path (pointer path))
  56   (let ((n (%gtk-tree-path-get-depth path))
  57         (indices (%gtk-tree-path-get-indices path)))
  58     (loop
  59        for i from 0 below n
  60        collect (mem-aref indices :int i))))
  61
  62 (defun tree-path-set-indices (indices path)
  63   (setf path (pointer path))
  64   (loop
  65      repeat (%gtk-tree-path-get-depth path)
  66      do (foreign-funcall "gtk_tree_path_up" :pointer path :boolean))
  67   (loop
  68      for index in indices
  69      do(foreign-funcall "gtk_tree_path_append_index" :pointer path :int index :void)))
  70
  71 (export 'tree-path)
  72 (export 'tree-path-indices)