Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv17330
Modified Files: text-editor-gadget.lisp Log Message: Added new exported `handle-gesture' generic function and used this to implement the activation-gesture behavior for the text-field gadget, eliminating use of Drei-internal symbols.
--- /project/mcclim/cvsroot/mcclim/text-editor-gadget.lisp 2006/11/23 15:48:48 1.4 +++ /project/mcclim/cvsroot/mcclim/text-editor-gadget.lisp 2006/11/24 22:43:03 1.5 @@ -61,13 +61,11 @@ (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 drei:handle-gesture ((drei text-field-pane) gesture) + (if (with-activation-gestures ((activation-gestures drei)) + (activation-gesture-p gesture)) + (activate-callback drei (gadget-client drei) (gadget-id drei)) + (call-next-method)))
(defmethod allocate-space ((pane text-field-pane) w h) (resize-sheet pane w h))