(defun icon-view-get-item-at-pos (icon-view x y)
(with-foreign-objects ((path :pointer) (cell :pointer))
(when (gtk-icon-view-get-item-at-pos icon-view x y path cell)
(defun icon-view-get-item-at-pos (icon-view x y)
(with-foreign-objects ((path :pointer) (cell :pointer))
(when (gtk-icon-view-get-item-at-pos icon-view x y path cell)
(defun icon-view-get-cursor (icon-view)
(with-foreign-objects ((path :pointer) (cell :pointer))
(when (gtk-icon-view-get-cursor icon-view path cell)
(defun icon-view-get-cursor (icon-view)
(with-foreign-objects ((path :pointer) (cell :pointer))
(when (gtk-icon-view-get-cursor icon-view path cell)
(mem-ref cell 'g-object)))))
(export 'icon-view-get-cursor)
(defcallback gtk-icon-view-foreach-func-callback :void
(mem-ref cell 'g-object)))))
(export 'icon-view-get-cursor)
(defcallback gtk-icon-view-foreach-func-callback :void
(export 'icon-view-select-path)
(defcfun (icon-view-unselect-path "gtk_icon_view_unselect_path") :void
(icon-view g-object)
(export 'icon-view-select-path)
(defcfun (icon-view-unselect-path "gtk_icon_view_unselect_path") :void
(icon-view g-object)
(defun icon-view-get-visible-range (icon-view)
(with-foreign-objects ((start-path :pointer) (end-path :pointer))
(when (gtk-icon-view-get-visible-range icon-view start-path end-path)
(defun icon-view-get-visible-range (icon-view)
(with-foreign-objects ((start-path :pointer) (end-path :pointer))
(when (gtk-icon-view-get-visible-range icon-view start-path end-path)
- (values (mem-ref start-path '(g-boxed-ref tree-path :owner :lisp))
- (mem-ref end-path '(g-boxed-ref tree-path :owner :lisp))))))
+ (values (mem-ref start-path '(g-boxed-foreign tree-path :return))
+ (mem-ref end-path '(g-boxed-foreign tree-path :return))))))