[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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

Modified Files:
	drei-clim.lisp 
Log Message:
Actually fix dead keys.

Turns out I got confused in my own maze of command processors.

Still needs a proper design decision about what to do wrt. abort
gestures (C-g).


--- /project/mcclim/cvsroot/mcclim/Drei/drei-clim.lisp	2008/02/16 21:33:40	1.42
+++ /project/mcclim/cvsroot/mcclim/Drei/drei-clim.lisp	2008/04/29 20:52:02	1.43
@@ -296,11 +296,12 @@
         (*abort-gestures* *esa-abort-gestures*)
         (*standard-input* drei))
     (accepting-from-user (drei)
-      (handler-case (process-gesture drei gesture)
-        (unbound-gesture-sequence (c)
-          (display-message "~A is unbound" (gesture-name (gestures c))))
-        (abort-gesture ()
-          (display-message "Aborted")))
+      (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"))))
       (display-drei drei :redisplay-minibuffer t)
       (when (modified-p (view drei))
         (when (gadget-value-changed-callback drei)