;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-;; $Id: gtktree.lisp,v 1.29 2007-08-20 11:20:21 espen Exp $
+;; $Id: gtktree.lisp,v 1.33 2008-02-27 21:48:53 espen Exp $
(in-package "GTK")
location))
(defun %tree-path-to-vector (location)
- (let ((indices (%tree-path-get-indices location))
- (depth (%tree-path-get-depth location)))
- (if (null-pointer-p indices)
- #()
- (map-c-vector 'vector #'identity indices 'int depth))))
+ (unless (null-pointer-p location)
+ (let ((indices (%tree-path-get-indices location))
+ (depth (%tree-path-get-depth location)))
+ (if (null-pointer-p indices)
+ #()
+ (map-c-vector 'vector #'identity indices 'int depth)))))
(defmacro %with-tree-path ((var path) &body body)
(let* ((pointer-offset (adjust-offset (size-of 'int) 'pointer))
(model tree-model)
(iter tree-iter :in/return)
(path tree-path))
+
+#?(pkg-exists-p "gtk+-2.0" :atleast-version "2.12.0")
+(defmethod allocate-foreign ((tree-iter tree-iter) &rest initargs)
+ (declare (ignore initargs))
+ (let ((size (foreign-size (class-of tree-iter))))
+ (slice-alloc size)))
(defun ensure-tree-iter (model row)
(etypecase row
(defbinding %tree-selection-select-iter () nil
(tree-selection tree-selection)
- (tree-path tree-path))
+ (tree-iter tree-iter))
(defbinding %tree-selection-unselect-iter () nil
(tree-selection tree-selection)
- (tree-path tree-path))
+ (tree-iter tree-iter))
(defbinding %tree-selection-iter-is-selected () boolean
(tree-selection tree-selection)
- (tree-path tree-path))
+ (tree-iter tree-iter))
(defun tree-selection-select (selection row)
(etypecase row