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))