From 824dc3a8298fa104c74029ed37d473cd8ecc9a85 Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Fri, 24 Jul 2009 01:51:40 +0400 Subject: [PATCH] GtkTreeModel: use g-type-designator foreign type --- gtk/gtk.tree-model.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/gtk/gtk.tree-model.lisp b/gtk/gtk.tree-model.lisp index 6bd65bb..6188a84 100644 --- a/gtk/gtk.tree-model.lisp +++ b/gtk/gtk.tree-model.lisp @@ -11,7 +11,7 @@ ;;methods (tree-model-get-flags-impl tree-model-get-flags-cb tree-model-flags (tree-model g-object)) (tree-model-get-n-columns-impl tree-model-get-n-columns-cb :int (tree-model g-object)) - (tree-model-get-column-type-impl tree-model-get-column-type-cb g-type (tree-model g-object) (index :int)) + (tree-model-get-column-type-impl tree-model-get-column-type-cb g-type-designator (tree-model g-object) (index :int)) (tree-model-get-iter-impl tree-model-get-iter-cb :boolean (tree-model g-object) (iter (g-boxed-ref tree-iter)) (path (g-boxed-ref tree-path))) (tree-model-get-path-impl tree-model-get-path-cb (g-boxed-ref tree-path) (tree-model g-object) (iter (g-boxed-ref tree-iter))) (tree-model-get-value-impl tree-model-get-value-cb :void (tree-model g-object) (iter (g-boxed-ref tree-iter)) (n :int) (value (:pointer g-value))) @@ -72,7 +72,7 @@ (export 'store-remove-item) (defun store-add-column (store type getter) - (vector-push-extend (ensure-g-type type) (store-types store)) + (vector-push-extend type (store-types store)) (vector-push-extend getter (store-getters store)) (1- (length (store-types store)))) @@ -157,7 +157,7 @@ (export 'tree-model-flags) -(defcfun (tree-model-column-type "gtk_tree_model_get_column_type") g-type +(defcfun (tree-model-column-type "gtk_tree_model_get_column_type") g-type-designator (tree-model g-object) (index :int)) -- 1.7.10.4