From 3b57b1b3f62ba81408b73893002533b0b2444c04 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 3 Jun 1992 18:24:37 +0000 Subject: [PATCH] Add new operation X-GRAPHICS/DISABLE-KEYBOARD-FOCUS. --- v7/src/runtime/runtime.pkg | 3 ++- v7/src/runtime/x11graph.scm | 9 ++++++++- v8/src/runtime/runtime.pkg | 3 ++- 3 files changed, 12 insertions(+), 3 deletions(-) diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg index b30b58c8d..afc74b4a2 100644 --- 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 53410dd7b..25274b708 100644 --- 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 793f67e50..d6a9d3939 100644 --- 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 -- 2.25.1