[gsharp-cvs] CVS update: gsharp/score-pane.lisp

[Christophe Rhodes]

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)