From: Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Date: Wed, 15 Apr 2009 23:23:51 +0000 (+0400)
Subject: Removed stub for tree-model
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=e9bc30645a57a3394187bb7ed6738c95a49a7d39;p=cl-gtk2.git

Removed stub for tree-model
---

diff --git a/gtk/gtk.tree-model.lisp b/gtk/gtk.tree-model.lisp
index 6cbdb96..605d8e6 100644
--- a/gtk/gtk.tree-model.lisp
+++ b/gtk/gtk.tree-model.lisp
@@ -30,6 +30,7 @@
 
 ; TODO: GtkTreeModelFilter
 
+
 (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)
@@ -124,22 +125,6 @@
                             (aref (store-items model) n-row))
                    (aref (store-types model) n)))))
 
-(defstruct tree-node
-  store
-  (columns-values (make-array 0 :adjustable t :fill-pointer t) :type vector)
-  (children (make-array 0 :adjustable t :fill-pointer t) :type (vector tree-node)))
-
-(export 'tree-node)
-
-(defclass tree-store (g-object tree-model)
-  ((root :reader tree-store-root)
-   (columns-types :initform (make-array 0 :adjustable t :fill-pointer t) :reader tree-store-types)
-   (columns-getters :initform (make-array 0 :adjustable t :fill-pointer t) :reader tree-store-getters)))
-
-(export 'tree-store)
-
-(register-object-type-implementation "LispTreeStore" tree-store "GObject" ("GtkTreeModel") nil)
-
 (defcfun (tree-model-flags "gtk_tree_model_get_flags") tree-model-flags
   (tree-model g-object))