14 Jul
2009
14 Jul
'09
5:22 a.m.
Why isn't HANDLE (for canvas items) exported from :ltk?
"Hand to forehead" when I figured out why the following didn't work.
(defpackage :p (:use :cl :ltk)) (in-package :p) (defun test () (let* (... (c (... 'canvas ...)) (o (make-instance 'canvas-oval :canvas c :x0 ...))) (itemconfigure c (slot-value o 'handle) ...)))
Alternatively, would it make sense to have (defmethod itemconfigure ((canvas canvas) (canvas-item item) ...)) do the right thing? Possible patch attached.
Thanks, Daniel