X-Git-Url: https://git.distorted.org.uk/~mdw/clg/blobdiff_plain/9bdb89f40067aac09eebefdedfeb1df1c9b9e658..49043b9ae448127671f43641c191a24080dcfb64:/gtk/gtktree.lisp diff --git a/gtk/gtktree.lisp b/gtk/gtktree.lisp index 00b8c72..861fdf5 100644 --- a/gtk/gtktree.lisp +++ b/gtk/gtktree.lisp @@ -15,7 +15,7 @@ ;; License along with this library; if not, write to the Free Software ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA -;; $Id: gtktree.lisp,v 1.4 2004/12/17 00:36:32 espen Exp $ +;; $Id: gtktree.lisp,v 1.5 2005/01/06 21:50:11 espen Exp $ (in-package "GTK") @@ -314,7 +314,7 @@ (defun tree-model-column-value (model iter column) (let ((index (column-index model column))) - (with-gvalue (gvalue (tree-model-get-column-type model index)) + (with-gvalue (gvalue) (%tree-model-get-value model iter index gvalue)))) (defbinding tree-model-iter-next () boolean