[mcclim-cvs] CVS mcclim/Apps/Listener

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim/Apps/Listener
In directory clnet:/tmp/cvs-serv29122/Apps/Listener

Modified Files:
	dev-commands.lisp 
Log Message:
Listener now supports BREAKing of running evaluation by pressing the
conveniently named Pause/Break key on the keyboard.


--- /project/mcclim/cvsroot/mcclim/Apps/Listener/dev-commands.lisp	2008/05/20 16:12:09	1.56
+++ /project/mcclim/cvsroot/mcclim/Apps/Listener/dev-commands.lisp	2008/05/20 16:16:02	1.57
@@ -1548,7 +1548,8 @@
                                                              #'(lambda ()
                                                                  (throw 'done result))))))))
                     (handler-case (loop for gesture = (read-gesture)
-                                        when (event-matches-gesture-name-p gesture :pause)
+                                        when (and (typep gesture 'keyboard-event)
+                                                  (eq (keyboard-event-key-name gesture) :pause))
                                         do (clim-sys:process-interrupt eval-process #'break))
                       (abort-gesture ()
                         (clim-sys:destroy-process eval-process)