[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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)))