Add new operation X-GRAPHICS/DISABLE-KEYBOARD-FOCUS.

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index b30b58c8d3552207f59157da7e10edfe024861e7..afc74b4a20929e3d56c12af76ccbbc7c29ad58bc 100644 (file)
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.153 1992/05/26 23:08:05 mhwu Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.154 1992/06/03 18:24:37 cph Exp $
 
 Copyright (c) 1988-92 Massachusetts Institute of Technology
 
@@ -2117,6 +2117,7 @@ MIT in each case. |#
          x-graphics/coordinate-limits
          x-graphics/copy-area
          x-graphics/device-coordinate-limits
+         x-graphics/disable-keyboard-focus
          x-graphics/display
          x-graphics/drag-cursor
          x-graphics/draw-line

diff --git a/v7/src/runtime/x11graph.scm b/v7/src/runtime/x11graph.scm
index 53410dd7ba4a0799da1885754379d72da4483350..25274b7085085f27f53144733f891ca29592bcf7 100644 (file)
--- a/v7/src/runtime/x11graph.scm
+++ b/v7/src/runtime/x11graph.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/x11graph.scm,v 1.21 1992/05/13 21:28:13 bal Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/x11graph.scm,v 1.22 1992/06/03 18:24:28 cph Exp $
 
 Copyright (c) 1989-92 Massachusetts Institute of Technology
 
@@ -603,6 +603,13 @@ MIT in each case. |#
 (define (x-graphics/set-input-hint device input?)
   (x-window-set-input-hint (x-graphics-device/xw device) input?))
 
+(define (x-graphics/disable-keyboard-focus device)
+  ;; Tell the window to participate in the TAKE-FOCUS protocol.  Since
+  ;; there is no handler for this event, focus will never be given to
+  ;; the window.
+  (x-window-set-event-mask (x-graphics-device/xw device)
+                          (fix:or #x2000 event-mask)))
+
 (define (x-graphics/query-pointer device)
   (let* ((window (x-graphics-device/xw device))
         (result (x-window-query-pointer window)))

diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index 793f67e50eb15035cb5c4be579f6b6ff8589a18c..d6a9d39391d18fdf26d8f65a1ddff451b63f9608 100644 (file)
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.153 1992/05/26 23:08:05 mhwu Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.154 1992/06/03 18:24:37 cph Exp $
 
 Copyright (c) 1988-92 Massachusetts Institute of Technology
 
@@ -2117,6 +2117,7 @@ MIT in each case. |#
          x-graphics/coordinate-limits
          x-graphics/copy-area
          x-graphics/device-coordinate-limits
+         x-graphics/disable-keyboard-focus
          x-graphics/display
          x-graphics/drag-cursor
          x-graphics/draw-line