X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.tree-model.lisp;h=3f257e36db18d67c1ef1e07a3dac1c101233780e;hb=af5ce50499aa0db8d068c00e0a25d8a1334c1740;hp=d7a4bdc80e2f5fe13b2a3fd4a7111f9247e0e799;hpb=280cc197440f3dec31bcbcd88b001b740be6e697;p=cl-gtk2.git

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)