From 0d46865dfcbe69bbc1825d83c4985b703c4024e7 Mon Sep 17 00:00:00 2001 Message-Id: <0d46865dfcbe69bbc1825d83c4985b703c4024e7.1716536968.git.mdw@distorted.org.uk> From: Mark Wooding Date: Thu, 6 Jan 2005 21:50:11 +0000 Subject: [PATCH] Bug fix Organization: Straylight/Edgeware From: espen --- gtk/gtktree.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/gtk/gtktree.lisp b/gtk/gtktree.lisp index 349188a..6ff82ce 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 @@ (defbinding %tree-model-get-value () nil (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 -- [mdw]