[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim/Drei
In directory clnet:/tmp/cvs-serv22753/Drei

Modified Files:
	drei-clim.lisp 
Log Message:
"tompa" at #lisp reported that `gadget-value' snips off the last
character, which it does. Fixed.


--- /project/mcclim/cvsroot/mcclim/Drei/drei-clim.lisp	2006/11/22 18:52:57	1.9
+++ /project/mcclim/cvsroot/mcclim/Drei/drei-clim.lisp	2006/11/22 20:51:32	1.10
@@ -228,7 +228,7 @@
 
 (defmethod gadget-value ((gadget drei-gadget-pane))
   (buffer-substring (buffer gadget)
-                    0 (max 0 (1- (size (buffer gadget))))))
+                    0 (size (buffer gadget))))
 
 (defmethod (setf gadget-value) (new-value (gadget drei-gadget-pane)
                                 &key (invoke-callback t))