;; 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.31 2007-10-17 14:47:10 espen Exp $
+;; $Id: gtktree.lisp,v 1.33 2008-02-27 21:48:53 espen Exp $
(in-package "GTK")
(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))))
(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