(defclass array-list-store (g-object tree-model)
((items :initform (make-array 0 :adjustable t :fill-pointer t) :reader store-items)
(columns-getters :initform (make-array 0 :adjustable t :fill-pointer t) :reader store-getters)
- (columns-types :initform (make-array 0 :adjustable t :fill-pointer t) :reader store-types)))
+ (columns-types :initform (make-array 0 :adjustable t :fill-pointer t) :reader store-types))
+ (:metaclass gobject-class)
+ (:g-type-name . "LispArrayListStore"))
(export 'array-list-store)
(defcfun (tree-model-flags "gtk_tree_model_get_flags") tree-model-flags
(tree-model g-object))
-(export 'tree-modelg-flags)
+(export 'tree-model-flags)
(defcfun (tree-model-n-columns "gtk_tree_model_get_n_columns") :int
(tree-model g-object))
(columns-types :initform (make-array 0 :adjustable t :fill-pointer t) :reader tree-lisp-store-types)
(root :initform (make-tree-node) :reader tree-lisp-store-root)
(id-map :initform (make-hash-table) :reader tree-lisp-store-id-map)
- (next-id-value :initform 0 :accessor tree-lisp-store-next-id-value)))
+ (next-id-value :initform 0 :accessor tree-lisp-store-next-id-value))
+ (:metaclass gobject-class)
+ (:g-type-name . "LispTreeStore"))
(defmethod initialize-instance :after ((object tree-lisp-store) &key &allow-other-keys)
(setf (tree-node-tree (tree-lisp-store-root object)) object))
(defun get-node-by-iter (tree iter)
(get-node-by-id tree (tree-iter-user-data iter)))
-(defmethod tree-model-get-path-impl ((store array-list-store) iter)
+(defmethod tree-model-get-path-impl ((store tree-lisp-store) iter)
(let* ((path (make-instance 'tree-path))
(node (get-node-by-iter store iter))
(indices (get-node-path node)))