[mcclim-cvs] CVS mcclim

[thenriksen]

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