[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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