[mcclim-cvs] CVS mcclim/Drei

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