From e9bc30645a57a3394187bb7ed6738c95a49a7d39 Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Thu, 16 Apr 2009 03:23:51 +0400 Subject: [PATCH] Removed stub for tree-model --- gtk/gtk.tree-model.lisp | 17 +---------------- 1 file changed, 1 insertion(+), 16 deletions(-) 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)) -- 1.7.10.4