[mcclim-cvs] CVS mcclim

[thenriksen]

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

Modified Files:
	text-editor-gadget.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/text-editor-gadget.lisp	2006/11/10 18:40:41	1.3
+++ /project/mcclim/cvsroot/mcclim/text-editor-gadget.lisp	2006/11/23 15:48:48	1.4
@@ -61,6 +61,14 @@
         (make-space-requirement :height height :max-height height :min-height height
                                 :min-width width :width width)))))
 
+(defmethod handle-event ((gadget text-field-pane) (event key-press-event))
+  (unless (and (drei::currently-processing-p gadget)
+               (drei::directly-processing-p gadget))
+    (if (with-activation-gestures ((activation-gestures gadget))
+          (activation-gesture-p (convert-to-gesture event)))
+        (activate-callback gadget (gadget-client gadget) (gadget-id gadget))
+        (call-next-method))))
+
 (defmethod allocate-space ((pane text-field-pane) w h)
   (resize-sheet pane w h))