From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 25 Sep 1995 20:04:19 +0000 (+0000)
Subject: Add primitive to perform XSelectInput library call.
X-Git-Tag: 20090517-FFI~5938
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2cfb358d50b5055b38af1c8c27287d0e103f8d0d;p=mit-scheme.git

Add primitive to perform XSelectInput library call.
---

diff --git a/v7/src/microcode/x11base.c b/v7/src/microcode/x11base.c
index da5e08af5..d240cb2d0 100644
--- a/v7/src/microcode/x11base.c
+++ b/v7/src/microcode/x11base.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: x11base.c,v 1.59 1995/09/18 22:52:36 cph Exp $
+$Id: x11base.c,v 1.60 1995/09/25 20:04:19 cph Exp $
 
 Copyright (c) 1989-95 Massachusetts Institute of Technology
 
@@ -2381,3 +2381,12 @@ DEFINE_PRIMITIVE ("X-MAX-REQUEST-SIZE", Prim_x_max_request_size, 1, 1, 0)
   PRIMITIVE_RETURN
     (long_to_integer (XMaxRequestSize (XD_DISPLAY (x_display_arg (1)))));
 }
+
+DEFINE_PRIMITIVE ("X-SELECT-INPUT", Prim_x_select_input, 3, 3, 0)
+{
+  PRIMITIVE_HEADER (3);
+  XSelectInput ((XD_DISPLAY (x_display_arg (1))),
+		(arg_ulong_integer (2)),
+		(arg_integer (3)));
+  PRIMITIVE_RETURN (UNSPECIFIC);
+}