Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv9566
Modified Files: drei-clim.lisp Log Message: `clear-modify' should be called even when no value-changed-callback is registered.
--- /project/mcclim/cvsroot/mcclim/Drei/drei-clim.lisp 2006/12/21 00:38:14 1.14 +++ /project/mcclim/cvsroot/mcclim/Drei/drei-clim.lisp 2007/01/16 22:16:32 1.15 @@ -294,13 +294,13 @@ (abort-gesture () (display-message "Aborted"))) (display-drei drei) - (when (and (modified-p (buffer drei)) - (gadget-value-changed-callback drei)) + (when (modified-p (buffer drei)) (clear-modify (buffer drei)) - (value-changed-callback drei - (gadget-client drei) - (gadget-id drei) - (gadget-value drei))))))) + (when (gadget-value-changed-callback drei) + (value-changed-callback drei + (gadget-client drei) + (gadget-id drei) + (gadget-value drei))))))))
(defmethod execute-drei-command :after ((drei drei-gadget-pane) command) (with-accessors ((buffer buffer)) drei