Update of /project/gsharp/cvsroot/gsharp In directory common-lisp.net:/tmp/cvs-serv15523 Modified Files: score-pane.lisp Log Message: Remove input focusing code which, at a guess, was a workaround for long-since changed mcclim behaviour. Now no longer annoyingly steals focus from other applications on the same virtual desktop. Date: Fri Oct 28 19:19:50 2005 Author: crhodes Index: gsharp/score-pane.lisp diff -u gsharp/score-pane.lisp:1.13 gsharp/score-pane.lisp:1.14 --- gsharp/score-pane.lisp:1.13 Thu Oct 27 03:28:08 2005 +++ gsharp/score-pane.lisp Fri Oct 28 19:19:50 2005 @@ -13,15 +13,6 @@ (declare (ignore args)) (setf (stream-default-view pane) (make-instance 'score-view))) -(defmethod dispatch-event :before ((pane score-pane) (event pointer-enter-event)) - (let ((port (port pane))) - (setf (port-keyboard-input-focus port) pane))) - -(defmethod dispatch-event :after ((pane score-pane) (event pointer-exit-event)) - (let ((port (port pane))) - (setf (port-keyboard-input-focus port) - (frame-standard-input (pane-frame pane))))) - (defparameter *pane* nil) (defparameter *light-glyph* nil) (defparameter *font* nil)