[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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

Modified Files:
	drei-clim.lisp 
Log Message:
Patch from Thomas Persson - Drei text fields now check whether a
gesture is an activation gesture, and they call
`value-changed-callback'


--- /project/mcclim/cvsroot/mcclim/Drei/drei-clim.lisp	2006/11/22 20:51:32	1.10
+++ /project/mcclim/cvsroot/mcclim/Drei/drei-clim.lisp	2006/11/23 15:48:48	1.11
@@ -279,7 +279,11 @@
             (display-message "Aborted")))
         (display-drei drei)
         (when (modified-p (buffer drei))
-          (clear-modify (buffer drei)))))))
+          (clear-modify (buffer 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