[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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

Modified Files:
	drei-clim.lisp 
Log Message:
Wrap up the last dead-key stuff for Drei gadgets.


--- /project/mcclim/cvsroot/mcclim/Drei/drei-clim.lisp	2008/04/30 21:27:46	1.44
+++ /project/mcclim/cvsroot/mcclim/Drei/drei-clim.lisp	2008/05/01 06:48:21	1.45
@@ -229,7 +229,8 @@
 ;;; updating is done after a command has been executed, and only then
 ;;; (or by commands at their own discretion).
 (defclass drei-gadget-pane (drei-pane value-gadget action-gadget
-                                      asynchronous-command-processor)
+                                      asynchronous-command-processor
+                                      dead-key-merging-command-processor)
   ((%currently-processing :initform nil
                           :accessor currently-processing-p)
    (%previous-focus :accessor previous-focus :initform nil
@@ -296,12 +297,11 @@
         (*abort-gestures* *esa-abort-gestures*)
         (*standard-input* drei))
     (accepting-from-user (drei)
-      (handling-dead-keys (gesture)
-        (handler-case (process-gesture drei gesture)
-          (unbound-gesture-sequence (c)
-            (display-message "~A is unbound" (gesture-name (gestures c))))
-          (abort-gesture ()
-            (display-message "Aborted"))))
+      (handler-case (process-gesture drei gesture)
+        (unbound-gesture-sequence (c)
+          (display-message "~A is unbound" (gesture-name (gestures c))))
+        (abort-gesture ()
+          (display-message "Aborted")))
       (display-drei drei :redisplay-minibuffer t)
       (when (modified-p (view drei))
         (when (gadget-value-changed-callback drei)