From 15dc5a09d1ad5b62df5eb559579f20ada7b2fa45 Mon Sep 17 00:00:00 2001 From: D Herring Date: Sun, 13 Nov 2011 22:43:39 -0500 Subject: [PATCH 1/2] fix treeview-heading --- ltk/ltk.lisp | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/ltk/ltk.lisp b/ltk/ltk.lisp index 25ca182..9bb2b00 100644 --- a/ltk/ltk.lisp +++ b/ltk/ltk.lisp @@ -2872,7 +2872,7 @@ set y [winfo y ~a] (let ((cbname (format nil "~a:~a" path column))) (add-callback cbname command) (setf (getf options :command) - (concatenate 'string "{callback " cbname "}")))) + (list "callback" cbname)))) (format-wish "~a heading ~a~{ -~(~a~) ~/ltk::tk-princ/~}" path column options)) (t ;; query -- 1.7.5.1