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)