Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv19783/Drei
Modified Files: drei-clim.lisp Log Message: Gadget-value for Drei gadgets works again now.
--- /project/mcclim/cvsroot/mcclim/Drei/drei-clim.lisp 2007/12/10 21:25:12 1.24 +++ /project/mcclim/cvsroot/mcclim/Drei/drei-clim.lisp 2007/12/23 00:40:36 1.25 @@ -223,8 +223,8 @@ ;; literal objects. We return a string if we can, an array ;; otherwise. This is a bit slow, as we cons up the array and then ;; probably a new one for the string, most of the time. - (let ((contents (buffer-sequence (buffer gadget) - 0 (size (buffer gadget))))) + (let ((contents (buffer-sequence (buffer (view gadget)) + 0 (size (buffer (view gadget)))))) (if (every #'characterp contents) (coerce contents 'string) contents)))