From: Dmitry Kalyanov Date: Thu, 8 Oct 2009 18:40:24 +0000 (+0400) Subject: Fix circularity in class-precedence-list of tree-models X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=ac38cf1d4e7acdabd98a720f9845866d01edaa42;p=cl-gtk2.git Fix circularity in class-precedence-list of tree-models --- diff --git a/gtk/gtk.tree-model.lisp b/gtk/gtk.tree-model.lisp index d7a4bdc..3f257e3 100644 --- a/gtk/gtk.tree-model.lisp +++ b/gtk/gtk.tree-model.lisp @@ -31,7 +31,7 @@ ; TODO: GtkTreeModelFilter -(defclass array-list-store (g-object tree-model) +(defclass array-list-store (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)) @@ -339,7 +339,7 @@ (item nil) (children (make-array 0 :element-type 'tree-node :adjustable t :fill-pointer t))) -(defclass tree-lisp-store (g-object tree-model) +(defclass tree-lisp-store (tree-model) ((columns-getters :initform (make-array 0 :adjustable t :fill-pointer t) :reader tree-lisp-store-getters) (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)