22 Nov
2006
22 Nov
'06
9:51 p.m.
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))