From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 30 Nov 2000 06:27:01 +0000 (+0000)
Subject: FOCUS-IN events must not cause X-WINDOW-SET-INPUT-FOCUS to be called.
X-Git-Tag: 20090517-FFI~3178
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6405e1c631f4da48fb6720463a48667e83b70418;p=mit-scheme.git

FOCUS-IN events must not cause X-WINDOW-SET-INPUT-FOCUS to be called.
Use dynamic binding to prevent this from happening.
---

diff --git a/v7/src/edwin/xterm.scm b/v7/src/edwin/xterm.scm
index 8ca820701..b861a97e1 100644
--- a/v7/src/edwin/xterm.scm
+++ b/v7/src/edwin/xterm.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: xterm.scm,v 1.63 2000/10/26 18:03:15 cph Exp $
+;;; $Id: xterm.scm,v 1.64 2000/11/30 06:27:01 cph Exp $
 ;;;
 ;;; Copyright (c) 1989-2000 Massachusetts Institute of Technology
 ;;;
@@ -716,7 +716,11 @@
     (if x-screen-ignore-focus-button?
 	(set! ignore-button-state 'IGNORE-BUTTON-DOWN))
     (and (not (selected-screen? screen))
-	 (make-input-event 'SELECT-SCREEN select-screen screen))))
+	 (make-input-event 'SELECT-SCREEN
+			   (lambda (screen)
+			     (fluid-let ((last-focus-time #f))
+			       (select-screen screen)))
+			   screen))))
 
 (define-event-handler event-type:delete-window
   (lambda (screen event)