From 2d947c7f30b3aabb5a2f0ad553bde5c4c7b96837 Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Sat, 29 Aug 2009 21:56:18 +0400 Subject: [PATCH] Fixed gtk tree-model classes definitions --- gtk/gtk.tree-model.lisp | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/gtk/gtk.tree-model.lisp b/gtk/gtk.tree-model.lisp index 47962a0..6dc7e17 100644 --- a/gtk/gtk.tree-model.lisp +++ b/gtk/gtk.tree-model.lisp @@ -34,7 +34,9 @@ (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) @@ -331,7 +333,9 @@ (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)) -- 1.7.10.4